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ABSTRACT 


The  conputer  algorithms  used  in  computing  the  MK  15/16  Constant  0.7  ATA 
Oxygen  Partial  Pressure  Decompression  Tables  are  presented.  These  algorithms 
vere  used  to  compute  both  the  nitrogen-oxygen  and  helium-oxygen  tables.  No 
physiological  rationale  or  test  results  are  presented.  Two  model  independent 
input-output  programs  are  presented  which  can  be  used  with  any  decompression 
model  which  can  be  written  in  the  prescribed  8  subroutines.  One  input-output 
program  outputs  each  decompression  schedule  in  a  very  detailed  format  while 
the  other  outputs  schedules  in  U.S.  Navy  Decompression  Table  format.  The  8 
subroutines  comprising  the  current  MR  15/16  Decompression  Model  are  presented 
in  detail.  Where  changes  in  the  Decompression  Model  were  made,  all  versions 
of  the  appropriate  subroutines  are  presented.  All  versions  of  the  program 
used  for  computing  ascent  criteria  are  presented  as  well  as  tables  of  all 
ascent  criteria  actually  used  in  the  development  of  the  current  MK  15/16 
Decompression  Model.  Annexes  contain  complete  listings  of  all  programs  in  the 
Fortran  17  language. 
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GLOSSARY 


Algorithm 


A  sequence  of  logical  steps  used  to  obtain  a 
mathematical  result. 


Decompression  Profile  -  A  table  or  graph  showing  the  time/depth  coordinates 

for  an  entire  dive  Including  all  desired  stops  and 
all  obligatory  decompression  stops. 


Decompression  Schedule  -  A  listing  showing  required  decompression  stop  depths 

and  stop  times  for  a  particular  Bottom  Depth/Time 
dive. 


Decompression  Table  -  A  structured  set  of  decompression  schedules  usually 

organised  in  order  of  Increasing  Bottom  Depths  and 
Bottom  Times. 


Dive  Profile  -  A  table  or  graph  of  time/depth  coordinates  for  an 

entire  dive  showing  all  desired  stops  without 
regard  to  decompression  obligation. 
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INTRODUCTION 


Over  the  period  from  1977  through  1982,  the  U.S.  Navy  Experimental  Diving 
Unit  (NEDU)  was  tasked  with  developing  a  set  of  decompression  procedures  for 
use  with  the  MK  15  and  MK  16  Underwater  Breathing  Apparatus  (UBA)  using  a 
constant  oxygen  partial  pressure  of  0.7  ATA  and  either  helium  or  nitrogen  as  a 
diluent.  A  report  regarding  a  portion  of  the  development  of  schedules  for  use 
with  nitrogen  as  the  diluent  has  been  published  (1),  and  the  results  of 
schedule  testing  using  helium  as  a  diluent  are  forthcoming. 

Previous  efforts  by  the  U.S.  Navy  in  calculating  decompression  tables  have 
generally  started  out  with  a  decompression  model  of  some  sort  but  as 
development  progressed,  only  schedules  which  produced  decompression  sickness 
were  revised.  Thus,  the  finished  set  of  tables  could  not  be  completely 
calculated  from  the  original  assumptions  because  these  revisions  were  not 
applied  to  all  schedules.  The  effort  resulting  in  the  production  of  the  MK 
15/16  Constant  0.7  ATA  Oxygen  Partial  Pressure  Tables  differed  in  that  a 
computer  algorithm  was  first  written  and  tested.  As  testing  progressed, 
changes  were  made  to  the  algorithm  and  only  when  a  safe  algorithm  was  found 
were  a  set  of  tables  computed.  Thus,  all  of  the  schedules  contained  in  the 
tables  were  computed  exactly  the  same  way  and  can  all  be  reproduced  exactly 
from  the  programs  described  here.  It  must  be  realized,  however,  that  roundoff 
errors  could  result  in  differences  in  stop  times  of  up  to  1  minute  when 
different  computer  systems  are  used  to  run  the  algorithm.  However,  the  total 
decompression  time  for  a  given  schedule  should  never  differ  by  more  than  1 
minute.  These  slight  variations  are  considered  insignificant. 

The  purpose  of  this  report  is  to  document  the  computer  programs  used  in 
calculating  the  MK  15/16  Constant  0.7  ATA  Oxygen  Partial  Pressure  Tables.  No 
discussion  of  the  physiological  rationale  behind  the  programs  will  be  given  at 
this  time.  Only  the  details  necessary  to  understand  the  mathematical  logic 
and  to  properly  run  the  programs  will  be  presented.  In  addition,  complete 
listings  of  all  programs  and  subroutines  are  presented. 

All  of  the  programs  presented  here  are  written  in  the  Fortran  IV  language 
running  under  the  Hewlett-Packard  RTE  IV-B  Operating  System.  All  subroutines 
which  are  peculiar  to  the  RTE  IV-B  Operating  System  are  identified  for  those 
wishing  to  bring  up  these  programs  using  other  operating  systems.  However,  it 
must  be  understood  that  neither  the  authors  nor  NEDU  have  the  time  or 
facilities  to  assist  in  modification  of  these  programs  for  use  with  other 
operating  systems. 

The  RTE  IV-B  Operating  System  accepts  only  a  single  line  of  ASCII  input 
for  each  Fortran  READ  Statement  using  the  Free  Field  Format.  The  Free  Field 
Format  (FORMAT  statement  number  specified  as  *)  allows  real  or  Integer  values, 
separated  by  commas,  to  be  input  on  the  same  line  and  does  not  require  a 
decimal  point  for  whole  real  numbers.  Once  the  return  key  is  hit,  all 
variables  in  the  READ  input  list  not  specified  on  that  line  remain  unchanged. 
Other  operating  systems  may  not  handle  Fortran  READ  Statements  this  way  and 
program  modifications  may  have  to  be  made. 
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These  programs  are  extremely  flexible  and  can  compute  decompression 
schedules  for  a  variety  of  dive  profiles  and  breathing  gases.  However,  it 
must  be  realized  that  only  certain  decompression  schedules  have  been  tested 
and  shown  to  be  safe.  Some  of  the  test  results  of  these  schedules  have  been 
published  (1)  and  others  will  be  the  subject  of  future  NEDU  reports. 


PROGRAM  OVERVIEW 


This  report  is  divided  into  three  parts.  Part  1  describes  the  two  model 
indpendent  input-output  programs  DMDB7  and  TBLP7  along  with  descriptions  of 
associated  input  and  output  files.  Part  2  describes  the  subroutines  which 
comprise  the  MK  15/16  Decompression  Model  and  Part  3  details  the  calculation 
of  the  various  ascent  criteria  used  with  the  Decompression  Model. 

The  model  independent  input-output  programs  DMDB7  and  TBLP7  are  designed 
to  accept  time,  depth  and  rate  profile  coordinates  from  a  Profile  Coordinate 
Input  File  and  output  a  specific  decompression  schedule  or  a  complete  set  of 
decompression  tables  in  a  specific  format.  These  programs  do  no  calculations 
related  to  the  Decompression  Model  but  pass  parameters  to  the  model  and  accept 
for  output  parameters  such  as  stop  depths  and  stop  times  which  are  computed  by 
the  model.  The  interactions  of  programs  DMDB7  and  TBLP7  with  the  decompres¬ 
sion  Model  Subroutines  is  shown  in  Fig.  1.  Although  the  MK  15/16  Decom¬ 
pression  Model  Subroutines  used  in  the  development  of  the  computer  algorithm 
are  presented  in  Part  2  of  this  report,  programs  DMDB7  and  TBLP7  are  model 
independent  and  can  be  used  with  any  decompression  model  so  long  as  the 
conventions  used  to  get  data  to  and  from  the  subroutines  are  adhered  to.  Both 
programs  DMDB7  and  TBLP7  accept  the  same  types  of  inputs;  they  differ  only  in 
their  outputs.  Program  DMDB7  outputs  an  exact  decompression  schedule  with 
times  computed  to  two  decimal  places  and  will  also  output  Model  Profile 
Parameters  used  during  computation  of  the  schedule.  Program  TBLP7  rounds  off 
all  decompression  stops  to  whole  minutes  and  outputs  schedules  in  standard 
U.S.  Navy  Decompression  Table  format. 

Detailed  descriptions  of  each  of  the  eight  subroutines  which  comprise  the 
MK  15/16  Decompression  Model  are  presented  in  Part  2.  During  the  development 
of  the  computer  algorithm  a  change  in  the  MK  15/16  Decompression  Model  was 
made.  This  change  resulted  in  two  versions  of  the  Tissue  Update  Subroutine 
UPDT7  and  the  Stop  Time  Computation  Subroutine  STXM7.  Version  1  is  the  most 
current  version  and  assumes  that  tissues  take  up  gas  exponentially  but  form  a 
gas  phase  after  a  certain  amount  of  supersaturation  at  which  point  gas 
elimination  proceeds  linearly.  This  model  will  be  referred  to  as  the 
Exponential-Linear  or  E-L  Model.  Version  2  of  these  subroutines  was  the 
version  used  to  compute  the  tables  described  In  reference  (1).  It  Is  the 
classical  perfusion  limited  supersaturation  model  where  no  gas  phase  is  ever 
assumed  to  form  where  both  gas  uptake  and  offgassing  are  assumed  to  be 
exponential.  Version  2  will  be  referred  to  as  the  Exponential -Exponential  or 
E-E  Model. 
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FIGURE  1.  INTERACTIONS  BETWEEN  MODEL  INDEPENDENT  INPUT-OUTPUT  PROGRAMS 
AND  DECOMPRESSION  MODEL  SUBROUTINES 
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MODEL  INDEPENDENT 


INPUT-OUTPUT  PROGRAMS 


Introduction 


Prograas  DMDB7  and  TBLP7  (the  1-0  Programs)  which  are  described  in  this 
section  were  designed  to  accommodate  any  decompression  model  which  can  be 
written  as  the  8  subroutines  required  by  the  1-0  Programs.  The  1-0  Programs 
accept  input  from  a  Profile  Coordinate  Input  File  which  may  be  entered 
directly  from  a  terminal.  However,  it  is  more  convenient  to  create  the 
Profile  Coordinate  Input  File  with  a  text  editor  and  then  have  the  program 
read  in  the  file  a  line  at  a  time  from  a  mass  storage  device.  In  this  way, 
errors  in  the  input  file  are  more  easily  corrected.  The  Profile  Coordinate 
Input  File  describes  the  individual  profile  segments  which  make  up  the  dive 
profile.  The  1-0  Programs  break  these  profile  segments  into  two  subsegments 
and  pass  the  variables  necessary  to  completely  describe  the  subsegment  to  the 
Decompression  Model  in  a  common  block.  However,  as  seen  in  Fig.  1, 
subroutines  HSIN7,  STIM7,  FRSP7,  NLIM7  and  RCRD7  also  pass  additional 
variables  in  their  subroutine  calling  sequences.  The  Decompression  Model 
performs  whatever  computation  and  record  keeping  it  requires  as  each 
subsegment  of  the  profile  is  processed.  As  long  as  descents  are  made  the 
Decompression  Model  Subroutines  provide  little  direction  to  program  DMDB7  or 
TBLP7  but  as  soon  as  an  ascent  is  desired  these  1-0  Programs  call  on  the 
Decompression  Model  Subroutines  to  provide  them  with  the  necessary  stop 
depths  and  times  in  order  to  safely  decompress  to  the  next  shallower  depth. 
Once  the  ascent  has  been  completed,  programs  DMDB7  and  TBLP7  again  take 
direction  from  the  Profile  Coordinate  Input  File  until  the  next  ascent  is 
desired  at  which  time  the  Decompression  Model  Subroutines  take  over.  In 
simplistic  terms  the  Profile  Coordinate  Input  File  directs  descent  while  the 
Decompression  Model  Subroutines  direct  ascent.  The  only  practical  limit  on 
the  complexity  of  the  dive  profile  are  the  sizes  of  the  buffers  which  hold 
the  decompression  schedule  as  it  is  being  calculated. 

Since  programs  DMDB7  and  TBLP7  both  use  the  same  input  file  structure, 
this  will  be  described  first. 


Profile  Coordinate  Input  File  Format 

Any  dive  profile  no  matter  how  complex  can  be  broken  down  into  segments. 
In  Fig.  2  a  dive  profile  consisting  of  seven  segments  is  shown.  All  ascents 
and  descents  are  assumed  to  be  linear  and  each  segment  is  assumed  to  be 
comprised  of  two  subsegments;  a  stop  for  some  time  (which  may  be  0  min)  at  a 
constant  depth  followed  by  a  linear  ascent  or  descent  to  a  new  depth  (the  new 
depth  and  old  depth  may  be  the  same  resulting  in  no  depth  change).  The 
profile  in  Fig.  2  only  shows  the  depths  and  times  of  interest  without  regard 
to  decompression  obligation.  It  is  up  to  the  Model  to  provide  information 
regarding  any  stops  which  must  be  taken  during  ascent.  Thus,  although  all 
ascents  shown  in  Fig.  2  show  direct  linear  ascent  to  the  next  shallower  depth 
the  Decompression  Model  will  compute  and  Insert  any  required  stops  Into  each 
ascent  subsegment.  The  specified  ascent  rate  will  be  retained  as  the  rate  of 
ascent  between  decompression  stops.  Each  profile  segment  is  completely 
described  by  three  parameters;  the  TIME  at  the  current  depth,  the  Next  DEPTH, 
and  the  RATE  of  depth  change.  Programs  DMDB7  and  TBLP7  require  the  RATE  to 
always  be  a  non-zero  number,  even  if  no  depth  change  will  occur. 


PROFILE  COORDINATE  INPUT  LINE:  TIME  AT  DEPTH,  NEXT  DEPTH,  RATE 


DIVE  PROFILE  MATRIX  (Time;  Depth,  Rate) 


T 

D 

R 

K-1 

K 

TIME  AT  DEPTH 

RATE 

K+1 

NEXT  DEPTH 

0.0 

K+2 

NEXT  DEPTH 

FIGURE  2.  TYPICAL  DIVE  PROFILE  SHOWING  A  PROFILE  SEGMENT  AND  DETAILS  OF 

EACH  OF  THE  TWO  SUBSEGMENTS 


Each  cine  a  profile  coordinate  input  is  expected,  the  Profile  Matrix 
Pointer  (K)  points  to  the  junction  of  the  first  and  second  subsegment.  After 
the  profile  coordinates  are  input,  the  I~0  Program  executes  two  model 
updates,  one  for  each  subsegment.  The  Time  at  the  Current  Depth  specifies 
the  number  of  minutes  to  be  spent  at  the  Depth  which  was  input  in  the 
previous  Profile  Coordinate  Input  Line  [D(K-1)J.  The  Next  Depth  and  Bate 
specify  where  the  profile  goes  to  next  and  what  the  desired  rate  of  depth 
change  is.  The  Depth  Change  and  time  required  for  the  change,  T(K+1),  are 
computed  by  the  1-0  Programs.  The  1-0  Programs  enter  the  profile  coordinates 
into  the  Dive  Profile  Matrix  as  shown  in  Fig.  2.  Time  at  the  Current  Depth  is 
T(K),  the  Next  Depth  is  D(K+1)  and  the  Rate  is  R(K).  The  1-0  Program 
computes  T(K+1)  and  enters  a  value  of  0.0  at  R(K+1).  The  value  at  the  next 
Depth  is  also  entered  again  as  D(K+2).  If  the  Model  determines  that  stops 
are  required  D(K+1)  and  D(K.+2)  will  be  the  depths  of  the  first  stops  as 
computed  by  the  Decompression  Model.  After  all  updates  are  completed  K  is 
incremented  by  2  and  will  point  to  the  K+2  position  in  the  portion  of  the 
Dive  Profile  Matrix  shown  in  Fig.  2.  The  final  entry  in  any  Dive  Profile 
Matrix  is  made  at  K+l,  and  printout  will  stop  at  the  K+l  position  of  the 
final  profile  segment. 

The  Profile  Coordinate  Input  File  contains  the  Time  at  Current  Depth, 
Next  Depth,  and  Rate  coordinates  which  describe  the  dive  profile  as  well  as 
other  information  needed  to  compute  the  decompression  schedule.  An  example 
of  an  input  file  is  shown  in  Fig.  3.  The  line  numbers  on  the  left  are  for 
reference  and  are  not  part  of  the  file.  This  particular  file  contains  five 
separate  profile  descriptions.  The  first  two  lines  of  the  file,  the  name  of 
the  Model  Input  Parameter  File  followed  by  the  Units  and  Depth  Increment  are 
specified  only  once  in  the  input  file  no  matter  how  many  profiles  are 
described  in  the  file.  The  Model  Input  Parameter  Filename  is  passed  to 
Subroutine  RDIN7  which  reads  the  file  and  passes  the  data  to  the  other 
Decompression  Model  Subroutines.  The  first  Integer  in  the  second  line  of  the 
input  file  specifies  the  depth  units  which  will  be  used  for  input.  A  value 
of  "1"  means  all  depth  and  rate  inputs  will  be  in  feet  and  any  other  value 
means  all  depth  and  rate  inputs  will  be  in  asters.  The  1-0  Program  passes  a 
conversion  factor  to  convert  asters  to  feet  to  the  Decompression  Model 
Subroutines  which  use  depth  units  of  feet  internally  for  the  most  part.  The 
next  integer  is  the  Depth  Increment  and  is  usually  one  of  three  values;  10, 
3,  or  3.  A  value  of  "10"  is  usually  used  with  input  units  in  feet  and 
signifies  that  all  stops  will  be  in  10  feet  of  seawater  (FSW)  increments. 
When  meters  are  used  for  input,  the  Depth  Increment  is  usually  "3"  or  "5" 
signifying  3  or  5  meters  of  seawater  (MSW)  stop  depth  increments.  Other 
depth  increments  may  be  used  but  they  mist  be  whole  numbers. 

Lines  3  through  12  of  the  input  file  shown  in  Fig.  3  represent  the 
profile  coordinate  inputs  for  the  first  profile.  The  last  line  of  input  for 
the  profile  (which  in  this  case  is  line  12)  is  "YES'*  signifying  that  another 
profile  follows.  If  the  last  line  of  input  had  been  "NO”,  as  in  line  56, 
then  the  program  would  stop.  As  long  as  the  last  input  for  each  profile  is 
"YES",  additional  profiles  may  be  input.  Thera  is  no  limit  to  the  number  of 
profiles  which  may  be  described.  After  the  last  profile  has  been  input,  this 
last  line  must  be  "NO”,  as  it  is  for  the  last  line  of  the  5th  profile. 
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NAVTS1  T-00004  IS  ON  CR00012  U8INC  00003  BLKS  R-0000 


0001 

HVAL09 

0002 

1,10 

0003 

1S0/ND 

0004 

.79,1.0 

0005 

0,0,60 

0006 

FI 

0007 

0,  150,60 

0008 

PI 

0009 

0,0,60 

0010 

P1NDFN 

0011 

YES 

0012 

YES 

0013 

150/30 

0014 

.79.  1.0 

0015 

0,0,60 

0016 

FI 

0017 

0. 150,60 

0018 

PI 

0019 

30, 0,60 

0020 

P1TXFN 

0021 

YES 

0022 

YES 

0023 

150/30 

0024 

.79, 1 .0 

0025 

0,  0,60 

0026 

FI 

0027 

0, 150,60 

0023 

PI 

0029 

30. 0.60 

0030 

P1DXTXFN 

0031 

YES 

0032 

YES 

0033 

150/30 

0034 

.79,1.0 

0035 

0. 0,60 

0036 

FI 

0037 

0,150.60 

0038 

PI 

0039 

30,20.60 

0040 

P1LSTXFN 

0041 

YES 

0042 

YES 

0043 

150/30 

0044 

.79,1.0 

0045 

0, 0,60 

0046 

FI 

0047 

0, 150,60 

0048 

PI 

0049 

30.20,60 

0050 

PI  TX 

0051 

0,20,60 

0052 

FI 

0053 

2, 0,60 

0054 

F1FN 

0055 

YES 

0056 

NO 

MODEL  INPUT  PARAMETER  FILENAME 
--  --- UNITS.  OEFTH  INCREMENT 

_ PROFILE  identifier 

_ DAS  TENSION 

INITIALIZATION  OEFTH,  NEXT  OEFTH,  RATE 
_ OPTION* 

_ TIME.  NEXT  OEFTH.  RATE 

- . .  OPTIONS 

_ TIME.  NEXT  OEFTH.  NATE 

_ OPTIONS 

_ PRINTOUT  MOOEL  PROFILE  PARAMETERS? 

_ _  ANOTHER  PROFILE  TO  FOLLOW? 


2ND  PROFILE 


3RD  PROFILE 


4TH  PROFILE 


5TH  PROFILE 


FIGURE  3.  PROFILE  COORDINATE  INPUT  FILE  FORMAT.  THE  LINE  NUMBERS  TO  THE 
LEFT  ARE  FOR  REFERENCE  AND  ARE  NOT  PART  OF  THE  FILE. 
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The  third  line  of  input  is  the  Profile  Identifier,  and  the  fourth  line  of 
input  contains  up  to  eight  gas  tension  values,  (only  2  are  shown)  each 
separated  by  a  comma.  The  first,  third,  fifth  and  seventh  values  are 
interpreted  as  inert  gas  fractions,  (First  Inert  Gas  Fraction,  Second  Inert 
Gas  Fraction,  etc.)  the  second,  fourth,  sixth  and  eighth  as  oxygen  partial 
pressures  in  atmospheres  absolute  (AXA)(Flrst  Oxygen  Partial  Pressure,  Second 
Oxygen  Partial  Pressure,  etc.).  It  is  not  necessary  to  input  all  eight 
values.  For  example,  in  air  dives  only  one  value  need  be  entered,  a  First 
Inert  Gas  Fraction  Value  of  0.79.  In  the  profile  shown  in  Fig.  3,  only  two 
values  are  used;  an  inert  gas  fraction  of  0.79  and  an  oxygen  partial  pressure 
of  1.0  ATA.  Options  which  will  be  described  below  specify  which  of  these  gas 
tensions  is  used  by  the  Decompression  Model  for  a  profile  segment  particular 
update. 

After  the  gas  tensions  have  been  entered,  the  next  lines  of  input  occur 
in  pairs.  The  first  line  of  each  pair  is  a  line  of  profile  coordinates  for  a 
single  profile  segment  as  shown  in  Fig.  2,  and  the  next  line  of  each  pair 
contains  up  to  8  characters  which  specify  the  four  options  (Table  1).  These 
options  describe  various  conditions  which  will  be  present  over  the  entire 
segment.  The  first  option  (an  alphanumeric  character  followed  by  an  Integer) 
is  always  used  to  specify  what  gas  tension  should  be  used  for  an  update.  The 
next  three  options  (pairs  of  alphnumerlc  characters)  are  used  to  modify  the 
profile  computation  procedure.  These  pairs  of  input  lines  (Profile  Coordin¬ 
ates,  Options)  are  repeated  until  all  segments  of  the  dive  profile  have  been 
entered.  In  the  first  profile  of  Fig.  3,  three  pairs  of  lines  (line  numbers 
5,  6;  7,  8;  9,  10)  are  needed  to  describe  the  profile.  The  option  line  of 
the  last  pair  of  lines  must  contain  an  "FIT*  as  one  of  the  three  options, 
signifying  that  no  further  profile  coordinates  will  be  entered  for  this 
particular  profile  (line  10,  Fig.  3).  The  next  line  of  input  (line  11,  Fig. 
3)  specifies  whether  or  not  a  printout  of  the  Model  Profile  Parameters  by 
Subroutine  RCRD7  is  desired  ( “YES"  or  "NO").  Finally,  the  last  line  of  input 
for  a  given  profile  (line  12,  Fig.  2)  specifies  whether  or  not  another 
profile  will  follow.  If  "YES"  is  input  then  a  new  profile  may  be  described 
starting  with  the  Profile  Identifier.  If  "NO"  is  input  then  the  program 
stops.  Note  that  the  formats  for  the  numerical  inputs  in  Fig.  3  are  somewhat 
arbitrary  since  all  of  these  are  read  by  the  RTE  IV-B  Operating  System  in 
free  field  format;  that  is  no  decimal  point  need  be  specified  for  real 
numbers  as  long  as  the  Inputs  are  separated  by  commas.  The  only  constraints 
on  input  are  that  times  and  depths  must  be  whole  numbers  and  alphanumeric 
Inputs  must  be  formatted  as  shown  without  intervening  commas.  Rates  may  be 
less  than  1.0  only  for  Program  DMDB7  but  must  be  entered  as  non-zero  values 
even  if  there  is  no  depth  change.  The  program  will  assign  the  proper  sign  to 
the  rate. 

As  mentioned  earlier,  each  Time,  Next  Depth,  Rate  input  line  describee  a 
profile  segment  as  shown  in  Fig.  2.  However,  the  first  Profile  Coordinate 
Line  entered  for  any  profile  (e.g.  the  3th  input  line  in  Fig.  3)  is  unique  in 
that  the  first  value  is  the  Initialisation  Depth  rather  than  the  Time  at 
Current  Depth.  The  Decompression  Modal  will  be  initialised  at  the  Initiali¬ 
zation  Depth  and  the  first  depth  in  the  dive  profile  matrix  (D(l)  Fig.  2) 


8 


TABLE  1 


LEGAL  OPTION  INPOTS 


First  Option 


First  Character 

P  Specifies  Oxygen  Partial  Pressure  to  be  used  for  Model  Update. 

F  Specifies  Inert  Gas  Fraction  to  be  used  for  Model  Update. 


Second  Character 

1,2,3,  or  4  Specifies  which  Partial  Pressure  or  Inter  Gas  Fraction  Is  to 
be  used. 


Second,  Third  and/or  Fourth  Option 


ND  Compute  no-decaapresslon  time  and  substitute  its  value  for  the 

Time  at  Depth. 

FN  This  is  the  last  line  of  input  for  this  profile. 

DX  Do  not  compute  decompression  stops  for  ascents,  ascend  directly 

to  the  Next  Depth  without  stopping. 

TX  Time  at  Current  Depth  Includes  descent  time.  Subtract  descent 

time  from  previous  depth  from  Time  at  Current  Depth  input. 

LS  Next  Depth  Is  the  last  depth  before  surfacing.  Compute  a  stop 

time  at  Next  Depth  which  will  allow  ascent  directly  to  the 
surface. 


NOTE:  The  second  character  of  the  First  Option  must  be  a  number.  If  It  Is 

not,  an  error  will  result.  Option  Inputs  other  than  those  above  (or  no 
Input)  will  result  In  options  ND,  FN,  DX  and  LS  not  being  executed. 

The  Inert  gas  tension  in  use  will  remain  as  specified  the  last  time  a 
legal  gas  tension  was  specified. 
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will  be  sec  Co  chac  depch.  T(l)  will  always  be  0.0  and  &(1)  will  be  sec  co 
che  specified  race.  The  program  will  compuce  T(2)  and  encer  Che  Next 
Depch  lnco  D( 2)  and  D(3)  and  sec  11(2)  co  0.0.  The  polncer  K  will  chen  be  sec 
co  3  so  lc  Is  In  poslclon  for  che  nexc  profile  segmenc  inpuc. 

Whenever  an  ascenc  Is  specified  a  check  Is  made  co  see  if  decompression 
scops  are  needed.  If  chey  are,  che  Decompression  Model  Subroudnes  will  be 
called  on  co  compuCe  che  values  for  Time  ac  Depch  and  Nexc  Depch  for  each 
subsequenc  profile  segmenc  uncil  che  Nexc  Depch  specified  in  che  Profile 
Coordinace  Line  is  reached  ac  which  poinc  inpuc  from  che  Profile  Coordlnace 
Inpuc  File  will  again  be  accepced.  However,  by  specifying  “DX"  as  an  opclon 
chis  feacure  will  be  disabled  over  che  segmenc  specified  by  che  preceeding 
Profile  Coordinace  Inpuc  Line  and  ascenc  will  proceed  direccly  co  che 
specified  Nexc  Depch  wichouc  any  decompression  scops.  This  opclon  is  usually 
used  co  analyze  profiles  generaced  by  ocher  decompression  models. 

The  Dive  Profile  Macrix  in  Programs  DMDB7  and  TBLP7  can  hold  a  maximum  of 
100  poincs  or  30  profile  segmencs.  Each  descenc  will  specify  only  one 
profile  segmenc  but  each  ascenc  may  require  several  profile  segmencs 
depending  on  che  number  of  decompression  scops  required.  This  muse  be  kepc 
in  mind  so  chac  che  Dive  Profile  Macrix  does  noc  overflow  during  a  final 
ascenc  from  some  depch  co  che  surface. 

Legal  opdons  which  may  be  specified  in  che  Opclon  Line  have  been  given 
in  Table  1.  Opdons  which  specify  gas  censions  are  only  allowed  as  che  Firsc 
Opclon  and  are  puc  inco  effecc  before  any  model  updaces  are  performed  on  a 
given  profile  segmenc.  If  one  of  che  legal  Firsc  Opdons  as  shown  in  Table  1 
is  noc  specified,  che  gas  censlon  specified  che  lasc  due  a  legal  Firsc 
Opclon  was  inpuc  will  be  used  for  model  updaces.  The  lasc  chree  opdons  do 
noc  have  Co  be  specified  if  none  of  Chase  options  are  needed,  as  chey  are  all 
disabled  jusc  before  che  Opclon  Line  is  read. 

As  mentioned  before,  zero  Time  ac  Depch  and  zero  Depth  Changes  are  legal 
and  some  of  che  uses  of  these  inputs  will  now  be  discussed.  A  zero  Time  ac 
Depch  is  usually  inpuc  if  "ND“  is  specified  as  an  option  because  entering 
"ND"  will  cause  che  no-decompression  time  ac  che  previously  input  DEPTH  co  be 
computed  and  used  in  lieu  of  che  time  actually  entered  (line  9,10;  Fig.  3). 

Another  use  for  a  zero  Time  ac  Depch  input  is  Co  change  breaching  gases 
during  ascent  or  descenc.  In  che  5ch  profile  of  Fig.  3,  a  constant  oxygen 
pardal  pressure  of  1.0  AIA  is  used  co  begin  ascenc  co  20  FSW  ac  60  FPM  after 
spending  30  min  ac  ISO  FSW  (line  49  and  50,  Fig.  3).  In  line  51  che  Time  ac 
Depch  input  is  “0"  and  Che  Depch  inpuc  “20"  but  che  opclon  "FI"  in  line  52 
causes  a  switch  co  be  made  from  che  Firsc  Oxygen  Pardal  Pressure  Co  che 
Firsc  Inert  Gas  Fracdon  before  beginning  che  model  update  for  chac  profile 
segmenc.  In  line  53,  even  chough  a  Tims  ac  Depch  of  0  min  was  specified,  che 
program  will  call  on  che  Decompression  Model  Subroutines  co  see  if  a  20  FSW 
scop  is  necessary  before  ascending  co  che  next  depch,  and  che  appropriate 
scop  time  will  be  computed. 
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Similarly ,  a  zero  Depth  Change  can  be  used  to  specify  a  gas  change  at  a 
particular  depth  while  stopped  at  that  depth.  Notice  the  first  two  pairs  of 
Profile  Coordinate/Option  Lines  in  all  of  the  profiles  in  Fig.  2  (lines  5,  6; 
IS,  16;  25,  26;  35,  36;  45,  46).  The  first  line  of  each  pair  causes  the 
profile  to  be  initialized  at  0  FSW  using  the  First  Inert  Gas  Fraction 
specified  in  the  following  Option  Line  of  each  pair.  After  initialization 
the  depth  remains  at  0  FSW,  that  is  no  depth  change  is  made.  In  each  entry 
following  the  above  pairs  of  lines,  a  time  of  0  min  is  specified  followed  by 
DEPTH  and  RATE.  This  will  cause  a  0  min  stop  at  0  FSW  but  will  switch  to  the 
First  Oxygen  Partial  Pressure  (PI)  before  beginning  descent  (lines  7,  8;  17, 
18;  27,  28;  37,  38;  47,  48  in  Fig.  3). 

The  only  way  to  terminate  a  profile  is  to  specify  "FN"  as  one  of  the 
options  after  the  last  Profile  Coordinate  Input  Line.  At  this  point,  the 
decompression  schedule  computation  is  terminated  after  the  specified  depth  in 
the  last  Profile  Coordinate  Input  Line  is  reached. 

If  the  “LS"  option  is  specified,  then  the  profile  will  ascend  to  the 
specified  Next  Depth  taking  any  necessary  decompression  stops  and  a  stop  time 
will  be  computed  at  Next  Depth  such  that  ascent  can  be  made  directly  to  the 
surface  from  that  depth.  If  the  specified  Next  Depth  is  so  deep  that  ascent 
to  the  surface  is  not  possible  a  stop  time  of  9999  minutes  will  be  computed. 
After  stopping  at  Next  Depth  for  the  computed  stop  time,  the  program  will 
then  proceed  to  the  surface,  update  the  model  and  stop.  Specifying  "LS"  as 
an  option  is  useful  in  constructing  decompression  schedules  such  as  are  found 
in  the  U.S.  Navy  Surface  Supplied  Helium  Oxygen  Tables  where  the  last  stop  is 
at  40  FSW  after  a  switch  to  100Z  oxygen  has  been  made  at  50  FSW.  The  fourth 
profile  in  Fig.  3  specifies  a  total  bottom  time  of  30  min  at  150  FSW  before 
ascending  to  20  FSW  at  60  F?M  (line  39,  Fig.  3).  In  line  40,  the  "LS”  option 
is  specified.  Any  decompression  stops  between  150  FSW  and  20  FSW  will  be 
computed  automatically.  Since  the  "LS”  option  was  specified,  a  stop  time 
will  be  computed  at  20  FSW  such  that  ascent  can  be  made  directly  to  0  FSW. 
The  appropriate  stop  will  be  taken,  the  model  will  be  updated  to  0  FSW  and 
decompression  schedule  computation  will  then  be  terminated  because  the  "FN" 
option  was  also  specified  in  line  40. 

The  "TX"  option  Is  useful  for  specifying  bottom  times  rather  than  actual 
time  at  depth.  If  this  option  is  not  specified  then  the  program  will  asstime 
that  the  TIME  input  from  the  Profile  Coordinate  Line  represents  the  actual 
number  of  minutes  to  be  spent  at  the  current  depth.  However,  if  the  "TX” 
option  is  specified,  the  program  will  interpret  this  time  as  Total  Bottom 
Time  (sum  of  descent  time  and  actual  time  at  depth)  and  subtract  the  descent 
time  from  the  previous  depth  from  the  specified  Time  at  Current  Depth  to  get 
the  actual  time  at  depth  which  is  then  passed  to  the  Decompression  Model. 
All  of  the  profiles  described  in  Fig.  3  specify  the  "TX"  option  for  descent 
to  150  FSW  (lines  20,  30,  40,  50)  so  that  the  actual  time  at  150  FSW  will  be 
27.5  min  (30  min  bottom  time  minus  2.5  min  descent  time).  If  the  "TX"  option 
had  not  been  specified,  the  times  in  lines  19,  29,  39  and  49  would  have  had 
to  be  27.5  min  Instead  of  30  min  to  describe  the  same  profile. 


Program  DMDB7 

This  program  accepts  input  from  a  Profile  Coordinate  Input  File  and 
outputs  a  detailed  decompression  profile.  All  times  are  computed  to  two 
decimal  places  and  the  program  can  cause  the  model  to  output  values  of  all 
model  variables  at  each  stop  so  a  detailed  picture  of  exactly  how  the 
decompression  profile  was  computed  is  obtained. 

Program  DMDB7  is  model  independent  and  can  be  used  with  any  decompression 
model  which  can  be  written  as  the  prescribed  subroutines.  All  profile 
coordinate  data  is  passed  to  the  subroutines  in  the  Common  Block  MDATA.  This 
Common  Statement  describing  the  Common  Block  MDATA  must  appear  in  all 
Decompression  Model  Subroutines  and  the  subroutines  should  change  the  values 
of  the  MDATA  variables  only  after  ensuring  no  undesirable  side  effects  will 
occur.  Some  subroutines  (RDIN7,  RCRD7 ,  STIM7 ,  FRSP7 ,  and  NLIM7)  carry 
variables  with  them  which  do  not  appear  in  MDATA* 

Program  DMDB7  contains  6  procedures;  Program  Initialization,  Profile 
Initialization,  Profile  Generation  and  Update  Loop,  First  Stop  Depth  Computa¬ 
tion,  Stop  Time  Computation,  and  Profile  Output.  Program  Initialization  is 
carried  out  only  once  each  time  the  program  is  run.  It  reads  the  first  two 
lines  of  the  Profile  Coordinate  Input  File  and  has  the  Decompression  Model 
Subroutines  get  all  the  parameters  which  will  be  used  to  compute  the 
decompreslon  schedules.  The  same  Model  Input  Parameter  File,  Depth  Units  and 
Depth  Increment  will  then  be  used  for  all  profiles  described  by  the  Profile 
Coordinate  Input  File. 

The  Profile  Initialization  Procedure  is  executed  once  for  each  profile 
described  in  the  Profile  Coordinate  Input  File.  It  reads  in  the  Profile 
Identifier  Label  and  the  Gas  Tensions  which  will  be  used  for  each  particular 
dive  profile.  Variables  and  counters  specific  to  each  profile  are  then 
initialized. 

The  Profile  Generation  and  Update  Loop  reads  in  the  Profile  Coordinate 
and  Option  Line  pairs  describing  each  profile  segment  and  instructs  the 
Decompression  Model  to  update  its  parameters  for  the  two  subsegments  which 
comprise  each  segment.  The  First  Stop  Depth  and  Stop  Time  Procedures  are 
called  from  this  loop  to  compute  decompression  stops  each  time  an  ascent  is 
specified.  This  loop  also  calls  on  a  subroutine  to  record  all  the 
coordinates  which  will  then  describe  the  decompression  profile. 

The  First  Stop  Depth  Computation  Procedure  is  used  to  find  the  depth  of 
the  first  stop  every  time  an  ascent  is  specified.  It  should  be  noted  that 
there  will  always  be  a  stop  at  one  stop  depth  increment  below  the  surface 
even  if  the  stop  time  is  zero  as  it  will  be  in  no-decompression  dives.  If 
decompression  stops  are  required  during  ascent,  this  procedure  sets  a  flag 
which  causes  input  from  the  Profile  Coordinate  Input  File  to  be  temporarily 
suspended  and  for  the  Profile  Generation  and  Update  Loop  to  cause  ascent  in 
increments  of  one  Stop  Depth  Increment  calling  upon  the  Stop  Time  Computation 
Procedure  to  compute  the  time  to  be  spent  at  each  stop. 


The  Profile  Output  Procedure  outputs  the  Decompression  Profile  on  one 
page  of  the  line  printer  and  then  prints  out  the  Decompression  Model 
Parameters  on  the  next  page  if  they  are  desired. 

A  complete  listing  of  Program  DMDB7  is  given  in  Appendix  A-l.  All 
references  to  line  numbers  will  refer  to  the  line  numbers  in  the  first  column 
of  the  listing.  Fortran  statement  numbers  in  the  program  will  be  referred  to 
as  Statement  Numbers. 


Program  Initialization  Procedure 
(Lines  150  -  191) 

First  the  date  and  time  are  read  from  the  RTE  IV-B  Operating  System  for 
use  in  printout  headers.  Then  the  RTE  IV-B  Operating  System  establishes  the 
device  number  of  the  terminal  being  used  to  control  the  program.  Next  (line 
165),  the  name  of  the  Model  Parameter  Input  File  is  read  from  Profile 
Coordinate  Input  File  device  LB  (which  is  in  our  case  is  a  9  track  magnetic 
tape)  and  printed  out  on  the  terminal.  Then  the  desired  Units  and  Depth 
Increment  are  read  in  and  written  on  the  terminal.  In  lines  171  and  172  the 
logical  variable  METRIC  is  set  to  “true"  if  all  Inputs  are  to  be  in  meters 
and  "false'*  if  all  inputs  are  to  be  in  feet.  If  metric  input  is  expected  the 
correction  factor  CF  is  set  to  1/.3048  which  will  convert  all  depth  Inputs 
from  meters  to  feet,  otherwise  CF  is  set  to  1.  Finally  (line  186),  a  message 
is  printed  on  the  terminal  asking  the  user  if  he  wants  to  have  the  model 
parameters  printed  out.  The  response  to  this  question  is  the  value  of  the 
variable  IPRT  which  is  passed  to  Subroutine  RD1N7.  The  other  variables 
hissed  to  this  subroutine  are  the  device  number  of  the  terminal  being  used 
(LU) ,  the  device  number  of  the  line  printer  (LP) ,  the  name  of  the  Model 
Parameter  Input  Filename  (MPIF),  and  the  value  of  the  logical  variable 
METRIC.  Subroutine  RDIN7  also  uses  the  value  of  the  Depth  Increment  (DINC) 
and  the  correction  factor  (CF)  but  these  are  passed  to  the  subroutine  in  the 
Common  Block  MDATA.  Subroutine  RDIN7  returns  the  names  of  the  breathing 
gas(es)  contained  in  the  Model  Parameter  Input  File  in  the  array  IGAS. 


l 


i 


Profile  Initialization  Procedure 
(Lines  204  -  228) 

The  Profile  Identifier  is  read  from  the  Profile  Coordinate  Input  File 
then  the  inert  gas  fractions  and  tensions  are  read.  One  to  eight  values  may 
be  input  here  but  gas  fractions  must  be  the  first,  third,  fifth,  and  seventh 
values  and  oxygen  partial  pressures  in  ATA  the  second,  fourth,  sixth  and 
eighth.  The  logical  variables  which  determine  if  a  first  stop  is  to  be 
calculated  (CFSTOP)  or  if  stop  times  need  to  be  calculated  (CSTIME)  are 
initially  set  to  "false”.  The  model  parameter  counter  used  by  Subroutine 
RCRD7  (CNTR)  and  the  profile  matrices  pointer  (K)  are  both  set  to  1. 
Finally,  the  depth  at  which  the  Model  will  be  initialized,  the  next  desired 
depth  and  the  rate  are  read  into  CDEPTH,  DEPTH  and  RATE  respectively.  TIME 
is  set  at  0.0  signifying  that  after  lnitilizatlon  at  CDEPTH  no  time  is  spent 
there  before  proceeding  to  DEPTH.  After  this  line  of  input  is  read  control 
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is  transferred  past  the  subsequent  profile  coordinate  input  statement  to 
Statement  211  (line  250).  It  should  be  noted  that  the  Program  Initialization 
Procedure  is  performed  only  once  for  a  given  Profile  Coordinate  Input  Pile. 
Each  additional  dive  profile  vri.ll  cause  the  program  to  reenter  at  Statement 
200  (line  207),  the  start  of  the  Profile  Initialization  Procedure. 


Profile  Generation  and  Update  Loop 
(Lines  243  -  365) 

This  is  the  meat  of  Program  DMDB7.  Statement  210  reads  in  the  time  to  be 
spent  at  the  current  depth  (TIME),  the  next  depth  in  the  profile  (DEPTH)  and 
the  rate  of  the  depth  change  (RATE).  Note  that  the  coordinates  for  the  start 
of  the  profile  were  input  in  the  Profile  Initialization  Procedure  so 
Statement  210  is  skipped  the  first  time  the  Profile  Generation  and  Update 
Loop  is  entered.  All  subsequent  profile  coordinate  Inputs  from  the  Profile 
Coordinate  Input  Pile  are  read  in  by  Statement  210.  Also,  note  that  the 
current  depth  (CDEPTH)  was  initially  set  by  the  Profile  Initialization 
Procedure  and  will  not  be  updated  until  the  end  of  the  Profile  Generation  and 
Update  Loop.  Next  (line  250),  the  rate  is  given  the  proper  sign  and  the  four 
options  are  read  into  array  0PTN  (line  255).  Notice  the  number  specified  as 
the  second  character  in  the  Gas  Tension  Option  is  read  into  the  Integer 
variable  NGAS.  The  five  logical  variables  whose  value  is  specified  by  the 
five  legal  second  through  fourth  options  are  initially  set  to  "false**.  Next 
(line  265),  if  the  first  character  of  the  first  option  was  not  a  “F"  or  a  "P" 
(the  only  two  legal  inputs)  all  option  decoding  will  be  skipped.  In  lines 
269  and  270  the  logical  variable  CP02  will  be  set  to  "true"  if  a  constant 
oxygen  partial  pressure  was  specified  and  to  "false"  if  a  constant  inert  gas 
fraction  was  specified.  The  proper  values  are  then  assigned  to  FN2  and  PO2 
from  the  array  GASTSN  depending  on  the  value  of  CP02  and  NGAS  (line  271, 
272).  The  remaining  three  options  are  now  decoded  and  the  appropriate 
logical  variables  set  to  "true"  for  specified  options  (line  276  -282).  The 
DO  Loop  configuration  allows  these  three  optons  to  occur  in  any  sequence  in 
the  option  line. 

When  the  Profile  Generation  and  Update  Loop  is  entered  for  the  first  time 
from  the  Profile  Initialization  Procedure,  the  counter  K  is  equal  to  “1" 
signifying  the  beginning  of  the  profile.  In  this  case  the  Decompression 
Model  Subroutine  INIT7  is  called  at  line  286  and  the  Decompression  Model  is 
initialized  at  CDEPTH  (which  is  usually  0)  using  the  oxygen  tension  specified 
in  the  option  line.  Next  at  line  293  the  variable  CFSTOP  is  set  to  "true"  if 
an  ascent  is  to  take  place  (and  the  automatic  decompression  feature  has  not 
been  overridden  by  specifying  the  "DX"  option).  By  setting  CFSTOP  to  "true" 
a  first  stop  depth  will  be  calculated  later  on  to  see  if  decompression  stops 
during  the  ascent  will  be  necessary.  If  the  ”TX”  option  was  specified,  then 
BTMTIM  was  set  to  "true"  in  line  278  and  the  previous  time  Increment  is 
subtracted  from  TIME  in  line  298.  The  value  of  TIME  will  never  be  allowed  to 
be  less  chan  0.0  as  it  could  be  if  the  bottom  time  were  inadvertently 
specified  as  a  value  less  than  the  descent  time.  Normally  the  value  of  TIME 
is  the  actual  amount  of  time  to  be  spent  at  the  current  depth  before 
proceeding  to  the  next  depth.  By  specifying  the  "TX"  option,  one  is  saying 


chat  Che  value  of  TIME  Includes  Che  descenC  time  from  Che  previous  depch  and 
this  descent  time  muse  be  subtracted  from  TIME  so  Che  actual  time  at  depth 
can  be  used  Co  update  Che  Model.  In  cases  where  a  no— decompression  dive  is 
co  be  done,  TIME  is  usually  entered  as  "0“  and  Che  "ND"  option  is  specified 
causing  NODLIM  to  be  set  to  "true"  in  line  279.  When  NODLIM  is  "true", 
subroutine  NLIM7  is  called  to  compute  the  no-decompression  time  at  the 
current  depth  and  this  value  is  assigned  to  the  variable  TIME  (line  302). 

In  lines  307  through  321  the  profile  coordinate  values  for  the  current 
depth,  time,  rate,  gas  tension,  and  Che  appropriate  gas  tension  label  are 
assigned  to  the  D,  T,  R,  GAS  and  GASLBL  profile  coordinate  arrays,  the  Model 
Parameters  are  updated  for  the  first  subsegment  by  Subroutine  UPDT7  and  then 
recorded  by  Subroutine  RCRD7  for  future  output.  The  pointer  to  the  current 
position  in  the  profile  coordinate  arrays  is  K  and  it  points  to  the  position 
in  the  profile  segment  as  shown  in  Fig  2.  Each  time  the  Profile  Generation 
and  Update  Loop  is  executed,  two  array  entries  are  made,  one  at  position  K 
and  the  other  at  position  K+l.  The  five  entries  at  position  K  are  made  first 
(lines  307  -313)  then  the  variables  RATE,  DC  and  TC  are  assigned  the  values 
needed  to  update  the  Model  over  the  first  subsegment  (lines  317-319).  The 
RATE  and  depth  change  (DC)  are  always  0  because  no  depth  change  occurs  in  the 
first  subsegment,  the  depth  entry  at  position  K  and  K-l  both  being  the 
current  depth  CDEPTH.  Thus,  when  the  Model  Update  Subroutine  UPDT7  is  called 
it  updates  the  Model  for  a  stop  of  TIME  minutes  at  the  current  depth  CDEPTH. 
After  the  Model  is  updated  Subroutine  RCRD7  is  called  to  record  the  Model 
Parameters  for  later  printout  (line  321).  The  first  argument  in  RCRD7  is  the 
mode,  a  "0"  signifies  recording  a  "1"  signifies  a  printout.  The  next 
argument  in  Subroutine  RCRD7  is  the  counter  (CNTR)  to  keep  track  of  how  many 
records  have  been  recorded.  The  subroutine  automatically  increments  CNTR  by 
"1"  each  time  it  is  called  so  CNTR  need  not  be  Incremented  in  the  main 
program.  Once  initialized  to  "1"  Program  DMDB7  no  longer  changes  the  value 
of  CNTR.  Finally  the  device  number  of  the  line  printer  (LP)  is  passed  to  the 
subroutine  and  is  used  if  a  printout  is  desired. 

In  line  329  value  of  RATE  is  updated  for  the  second  profile  subsegment. 
In  this  subsegment,  a  depth  change  DC  occurs  (which  may  be  "0")  and  the  rate 
of  travel  between  them  is  given  by  RATE.  If  CFST0P  is  "true"  (which  occurs 
for  all  ascents)  then  the  program  branches  to  the  First  Stop  Depth 
Computation  Procedure. 


First  Stop  Depth  Computation  Procedure 
(Lines  383  -  406) 

Subroutine  FRSP7  returns  the  depth  of  the  first  stop  (DFS).  If  the  depth 
of  the  first  stop  is  shallower  than  the  next  depth  no  stops  are  needed  and 
ascent  can  be  made  directly  to  the  next  depth.  However,  if  the  next  depth  is 
"0"  a  First  Stop  Depth  of  DINC  will  always  be  specified.  If  stops  are 
required,  the  value  of  the  next  depth  currently  stored  in  DEPTH  is 
temporarily  stored  in  FDEPTH  and  DEPTH  is  assigned  the  value  of  DFS  or  DINC, 
whichever  Is  greater  (line  398)  .  The  logical  variable  CSTIME  is  set  to 
"true"  so  stop  times  will  be  computed  after  the  first  stop  depth  is  reached. 


Whether  a  stop  Is  needed  or  not  CFSTOP  is  set  to  "false"  so  the  First  Stop 
Procedure  will  not  be  executed  again  unless  there  is  another  ascent  input 
from  the  Profile  Coordinate  Input  File. 


Profile  Generation  and  Update  Loop  (Continued) 

(Lines  334  -  364) 

Having  established  what  the  next  depth  is  to  be,  the  depth  change  (DC) 
and  the  time  change  (TC)  to  the  next  depth  are  calculated  (lines  334,  335). 
Subroutine  UPDT7  updates  the  Model  over  the  second  subsegment  and  Subroutine 
RCKD7  records  the  parameters.  Next  the  depth,  time  increment,  rate,  gas 

tension,  and  gas  tension  label  are  recorded  in  the  K+l  position  of  the 

profile  arrays  (lines  341-345).  Note  that  the  rate  recorded  here  is  "0“ 
because  the  first  half  of  the  next  subsegment  will  have  no  depth  change. 
Finally,  the  current  depth  (CDEPTH)  is  updated  to  DEPTH  and  the  counter  (K) 
incremented  by  "2"  to  get  the  pointer  in  position  for  the  next  profile 
subsegment.  At  this  point  (line  358),  control  is  transferred  to  one  of  two 
places.  If  stop  times  are  needed  (CSTIME  or  LSTOP  "true"),  then  control  is 
transferred  to  the  Stop  Time  Computation  Procedure.  This  procedure  computes 
the  time  which  has  to  be  spent  at  the  current  depth  before  being  able  to 
ascend  a  maximum  of  one  depth  increment  shallower.  All  previously  specified 
options  for  gas  tensions  remain  in  effect  while  stop  times  are  being 
computed.  The  Stop  Time  Computation  Procedure  continues  to  be  called  to 
compute  stop  times  and  decrement  the  depth  until  the  next  depth  (FDEPTH)  is 
reached.  At  this  point  control  will  be  transferred  back  to  Statement  210 

(line  246)  and  the  next  set  of  profile  coordinates  accepted.  If  no  stop 

times  are  needed,  then  control  is  passed  directly  back  to  Statement  210  if 
DONE  is  "false".  If  it  is  "true"  then  the  last  set  of  profile  coordinates 
as  been  entered  and  control  is  transferred  to  the  Profile  Output  Procedure 
oeginnlng  at  Statement  500  (line  484). 


Stop  Time  Computation  Procedure 
(Lines  428  -  468) 

In  line  431  a  check  is  made  to  see  if  the  current  depth  is  within  one 
depth  Increment  of  the  final  depth.  If  it  is  not  then  the  DEPTH  is  set  equal 
to  one  depth  Increment  (DINC)  less  than  the  current  depth  (CDEPTH)  and  the 
stop  time  at  the  current  depth  necessary  to  allow  ascent  from  CDEPTH  to  DEPTH 
is  calculated.  Control  is  then  transferred  back  to  Statement  220  (line  307) 
at  line  440.  The  Subroutine  STIM7  has  two  arguments.  TIME  returns  the  stop 
time  and  the  second  argument  is  the  depth  to  which  ascent  is  desired  after  a 
stop  of  TIME  minutes  at  the  current  depth.  If  the  current  depth  is  within 
one  depth  increment  of  the  final  depth,  control  is  passed  to  Statement  410 
(line  444).  If  CSTIME  is  "true"  it  means  that  the  final  depth  (FDEPTH)  has 
not  yet  been  reached.  This  is  necessitated  by  the  fact  that  control  is 
passed  to  the  Stop  Time  Computation  Procedure  at  line  358  if  either  CSTIME  or 
LSTOP  is  true.  Initially,  both  variables  may  be  true  since  the  "LS"  option 
which  sets  LSTOP  "true"  must  occur  during  an  ascent  which  will  always  set 
CSTIME  to  "true".  When  control  is  transferred  to  Statement  410  for  the  first 


cine,  CSTIME  has  to  be  "true"  because  ic  is  only  sec  Co  ’’false'*  ac  line  466 
which  can  be  goccen  co  only  via  SCacenenC  410.  So  Che  firsC  Cine  control 
passes  Co  Scacemenc  410  ic  will  cransfer  control  to  Statement  420  (line  461) 
where  Che  scop  Cine  before  ascending  Co  che  final  depth  (FDEPTH)  is  computed. 
CSTIME  is  sec  to  "false’’  before  returning  Co  Scacemenc  220.  Once  CSTIME  has 
been  set  Co  "false"  ac  line  466,  che  only  condition  at  line  358  which  will 
cause  concrol  Co  be  again  transferred  Co  che  Scop  Time  Computation  Procedure 
is  if  LSTOP  is  "crue".  If  ic  is,  Chen  control  is  passed  from  Statement  400 
co  Scacemenc  410  and  down  Co  line  452  because  CSTIME  was  set  to  "false"  on 
the  previous  pass  through  the  procedure.  FDEPTH  is  set  to  "0.0"  at  line  452 
because  one  wants  to  ascend  directly  Co  "0.0"  after  staying  ac  CDEPTH  for  the 
appropriate  time.  The  stop  time  is  computed  and  CSTIME  is  set  to  "true"  once 
more  so  stop  times  at  each  stop  depth  increment  during  ascent  from  CDEPTH  to 
the  surface  will  be  recorded.  The  stop  times  at  these  depths  should  be  "0.0" 
and  the  real  purpose  of  having  each  stop  time  computed  is  to  cause  the  model 
parameters  co  be  recorded  at  each  stop  depth  increment  as  ascent  to  the 
surface  occurs.  LSTOP  is  set  to  "false"  in  line  456  so  once  the  surface  is 
reached,  no  further  stop  times  will  be  computed  and  control  will  be 
transferred  back  to  Statement  220  (line  307). 

Once  LSTOP  and  CSTIME  are  both  "false",  the  program  remains  in  the 
Profile  Generation  and  Update  Loop  until  DONE  is  set  to  "true".  As  will  be 
recalled,  this  occurs  only  after  "FN"  has  been  specified  as  an  option.  If 
DONE  is  "true",  control  passes  to  the  Profile  Output  Procedure  which  begins 
at  Statement  500  (line  484). 


Profile  Output  Procedure 
(Line  481  -  537) 

Once  the  current  profile  input  has  been  finished,  the  zero  times  (ZT)  of 
each  profile  subsegment  are  computed  by  serially  summing  time  increments  (T) 
(lines  484-486).  Then  the  Profile  Coordinate  Input  File  is  read  to  see  if  a 
model  parameter  output  in  addition  to  the  profile  output  is  desired  (line 
490).  A  header  is  written  out  on  the  first  page  of  output  (line  494-503) 
followed  by  the  dive  profile  zero  time  (ZT),  elapsed  time  (T),  depth  (D), 
rate  (R),  gas  tension  (GAS),  and  gas  tension  label  (GASLBL)  arrays  (line  507, 
508).  Note  that  the  last  recorded  entry  is  at  the  K-l  position  in  these 
arrays.  If  a  model  parameter  printout  is  desired,  a  header  is  written  on  a 
second  page  (line  516-524)  and  Subroutine  RCRD7  is  called  with  the  mode  set 
to  "1",  signifying  that  a  printout  is  desired  (line  528).  Lastly,  the 
Profile  Coordinate  Input  File  is  read  again  to  see  if  another  profile  follows 
(line  533).  If  MORE  is  not  "YE(S)",  the  program  stops;  if  it  is  then  control 
goes  back  to  the  Profile  Initialization  Procedure  beginning  at  Statement  200 
(line  207). 


Profile  Output  from  Program  DMDB7 

Figures  4  and  5  show  the  5  Profile  Printouts  generated  by  the  Profile 
Coordinate  Input  File  in  Fig.  3.  It  must  be  emphasized  that  the  decompres¬ 
sion  profiles  shown  here  are  examples  only  and  do  not  necessarily 
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PROFILE  1 


1  !  14  PH  TUE.  .  5  JAN.  ,  1982 

PROGRAM  OMDB?  USING  10  FSW  STOPS 
HVAL09< HELIUM  > 

130/ND 


ZERO  TIME 

ELAPSED  TIME 

DEPTH 

RATE 

GAS 

0.00 

0.00 

0 

60 

79.00  X 

0.00 

0.  00 

0 

0 

79.  00  X 

0.00 

0.00 

0 

60 

1  .  00  ATA 

2.50 

2.50 

150 

0 

1 . 00  ATA 

14.05 

11,55 

150 

-60 

1  .  00  ATA 

16.39 

2.33 

1  0 

0 

1 . 00  ATA 

16.39 

0.  00 

1  0 

-60 

1 . 00  ATA 

16.55 

.  17 

0 

0 

1 . 00  ATA 

1  i  1 4  PM  TUE  .  , 
PROGRAM  DM067 
HVAL09< HELIUM 

PROFILE  2 

5  JAN.,  1982 

USING  10  FSU  STOPS 
> 

130/30 

ZERO  TIME  ELAPSED  TIME 

DEPTH 

RATE 

CAS 

0.00 

0.00 

0 

60 

79.00 

X 

0.00 

0.00 

0 

0 

79.00 

X 

0.  00 

0.00 

0 

60 

1  .  00 

ATA 

2.50 

2.50 

150 

0 

1  .  00 

ATA 

30.00 

27.50 

150 

-60 

1  .  00 

ATA 

32.00 

2.00 

30 

0 

1  .  00 

ATA 

35.06 

3.06 

30 

-60 

1  .  00 

ATA 

35.22 

.17 

20 

0 

1  .  00 

ATA 

41.45 

6.23 

20 

-60 

1.00 

ATA 

41  .62 

.17 

t  0 

0 

1  .  00 

ATA 

52.92 

1 1  .30 

1  0 

-60 

1 . 00 

ATA 

53.08 

.17 

0 

0 

1.00 

ATA 

1  i  1 4  PM  TUE .  , 
PROGRAM  DMD8? 
HVAL09< HELxUM 

PROFILE  3 

5  JAN..  1982 

US  INC  10  FSU  STOPS 
> 

150/30 

ZERO  TIME  ELAPSED  TIME 

DEPTH 

RATE 

GAS 

0.00 

0.00 

0 

60 

79.00 

X 

0.00 

0.00 

0 

0 

79. 00 

X 

0,00 

0.00 

0 

60 

1 . 00 

ATA 

2.50 

2.50 

150 

0 

t .  00 

ATA 

30.00 

27.50 

150 

-60 

1.00 

ATA 

32.50 

2.50 

0 

0 

1  .  00 

ATA 

FIGURE  4.  PROFILE  OUTPUTS  AS  PRINTED  BY  PROGRAM  DMDB7  FOR  THE  FI  RST 
THREE  PROFILES  IN  THE  FILE  SHOWN  IN  FIGURE  3. 
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PROFILE  4 


: 1 4  PM  TUE .  . 

5  JAN.,  1982 

PROGRAM  DM087 
HVAL09< HELIUM 

USING  10  FSU 
> 

STOPS 

150/'30 

2ER0  TIME  '  ELAPSED  TIME 

DEPTH 

RATE 

GAS 

0.00 

0.00 

0 

60 

79.00 

X 

0.00 

0.00 

0 

0 

79.00 

X 

0.00 

0.00 

0 

60 

1 . 00 

ATA 

2.30 

2.30 

150 

0 

1  .  00 

ATA 

30.00 

27.30 

130 

-60 

1 . 00 

ATA 

32.00 

2.00 

30 

0 

1 . 00 

ATA 

33.06 

3. 06 

30 

-60 

1  .  00 

ATA 

35.22 

.  17 

20 

0 

1  .  00 

ATA 

32.73 

17.33 

20 

-60 

1  .  00 

ATA 

32.92 

.17 

1  0 

0 

1  .  00 

ATA 

52.92 

0.00 

t  0 

-60 

1  .  00 

ATA 

53. 08 

.17 

0 

0 

1  .  00 

ATA 

PROFILE  5 


t i 14  PM  TUE . ,  5  JAN. ,  1982 

PROGRAM  DMDB7  USING  10  F$«  STOPS 
HVAL09< HELIUM  ) 

130^30 


ZERO 

TIME 

ELAPSED  TIME 

DEPTH 

RATE 

CAS 

0 

.  00 

0.00 

0 

60 

79 

.  00 

y. 

0 

.  00 

0.00 

0 

0 

79 

.  00 

y. 

0 

.  00 

0.00 

0 

60 

t 

.  00 

ATA 

2 

.30 

2.50 

130 

0 

1 

.  00 

ATA 

30 

.  00 

27.30 

130 

-60 

1 

.  00 

ATA 

32 

.  00 

2.00 

30 

0 

1 

.  00 

ATA 

33 

.  06 

3.06 

30 

-60 

1 

.  00 

ATA 

35 

.22 

.17 

20 

0 

1 

.  00 

ATA 

33 

.22 

0.00 

20 

60 

79 

.  00 

V. 

33 

.22 

0.00 

20 

0 

79 

.  00 

y. 

37 

.22 

2.00 

20 

-60 

79 

,  00 

X 

37 

.22 

0.00 

20 

0 

79 

.  00 

X 

37 

.80 

20.38 

20 

-60 

79 

.  00 

X 

37 

.97 

.  17 

to 

0 

79 

.  00 

X 

1 13 

.33 

53.38 

10 

-60 

79 

.  00 

X 

1 13 

.32 

.  17 

0 

0 

79 

.  00 

X 

FIGURE  5.  PROFILE  OUTPUTS  AS  PRINTED  BY  PROGRAM  DMDB7  FOR  THE 
LAST  TWO  PROFILES  IN  THE  FILE  SHOWN  IN  FIGURE  3. 
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represent  tested  profiles.  The  headers  printed  out  with  each  profile  show 
the  date  and  time  that  Program  DMDB7  was  run  followed  by  a  line  with  the 
program  name  and  depth  increments  and  units.  Note  'that  in  these  particular 
profiles  the  units  for  all  depth  increments  are  FSW  (feet  of  seawater).  If 
the  profiles  were  in  metric  format  then  MSW  (meters  of  seawater)  would  have 
appeared  after  the  depth  increment.  The  next  line  of  the  header  gives  the 
name  of  the  Model  Parameter  Input  File  (MPIF)  which  in  this  case  was 
specified  as  HVAL09  in  line  1  of  the  Profile  Coordinate  Input  File  in  Fig.  3. 
Next  to  the  MPIF  name  in  parenthesis  is  the  inert  gas  description  from  the 
MPIF.  This  description  is  used  for  labeling  purposes  only.  In  these 
examples  the  inert  gas  label  is  always  HELIUM.  Other  examples  of  inert  gas 
labels  might  be  AIR,  NITROGEN,  50/50  HE-N2,  etc.  Finally,  a  profile 
identifier  is  printed  out  before  the  actual  profile.  Like  the  inert  gas  name 
the  profile  identifier  is  for  labeling  purposes  only  and  is  not  used  for  any 
computations.  The  profile  Itself  gives  the  cumulative  or  Zero  Time  of  the 
profile  and  the  Elapsed  Time  at  each  depth  or  for  each  depth  change.  The 
positive  rates  are  unsigned  and  signify  descents  and  the  negative  rates 
ascents.  The  last  column  shows  whether  an  inert  gas  fraction  (Z)  or  oxygen 
constant  partial  pressure  (ATA)  was  used  by  the  model  for  updating  the 
segment  and  what  value  was  used. 

The  first  profile  is  a  simple  no-decompression  dive  to  150  FSW.  The 
profile  was  initialized  on  79Z  inert  gas  (air  in  this  case)  and  the  rest  of 
the  dive  was  done  using  a  constant  1.0  ATA  P02  in  helium.  (The  model  used 
here  always  initializes  assuming  nitrogen  is  the  inert  gas,  helium  being 
assumed  for  the  remainder  of  the  dive).  The  first  two  entries  at  0  FSW  are 
the  result  of  the  initialization  then  a  third  0.0  min  entry  at  0  FSW  is  made 
when  the  switch  to  1.0  ATA  ?02  is  made.  Descent  to  150  FSW  takes  2.5  min  and 
11.53  min  has  been  computed  as  the  maximum  time  which  can  be  spent  at  150  FSW 
without  requiring  decompression  scops.  Ascent  to  the  surface  takes  2.5 
minutes.  Notice  that  a  0.0  min  stop  at  10  FSW  was  computed.  As  mentioned 
earlier  all  decompression  profiles  will  always  have  at  least  a  10  FSW  stop  so 
the  model  parameters  will  be  recorded  at  least  once  before  the  surface  is 
reached. 

The  second  profile  is  initialized  exactly  the  same  way  as  the  first  but 
27.5  min  is  spent  at  150  FSW.  Notice  in  Fig.  3  line  19  that  30  min  was 
specified  as  the  time  at  150  FSW  before  ascending  to  0  FSW  at  60  FPM. 
However,  since  che  "TX"  option  was  specified  in  line  20  the  2.5  min  descent 
time  was  subtracted  by  the  program  from  the  30  min  Bottom  Time  resulting  in 
27.5  min  being  spent  at  150  FSW.  Also,  in  line  20  of  Fig.  3,  the  "FN"  option 
was  specified  indicating  that  this  was  che  last  line  of  this  dive  profile. 
The  program  computed  the  stop  depths  and  times  at  30,  20  and  10  FSW  before 
going  on  to  che  next  profile.  The  first  stop  is  at  30  FSW  and  it  takes  2  min 
to  get  there.  A  3.06  min.  stop  is  taken  before  ascending  to  20  FSW  which 
takes  .17  min.  The  last  profile  entry  is  a  .17  min  ascent  from  10  FSW  to  the 
surface  after  an  11.30  min  stop. 

The  third  profile  illustrates  the  use  of  the  "DR"  option.  Note  from  Fig. 
3  that  the  profile  description  is  identical  to  that  of  the  second  profile 
except  for  the  inclusion  of  the  "DX"  option  in  line  30.  This  option 
overrides  the  automatic  decompression  feature  and  ascent  is  made  directly  to 
the  surface.  The  usefulness  of  the  "DX”  option  is  not  obvious  from  the 


profile  printout  but  is  better  appreciated  by  looking  at  the  Model  Profile 
Parameter  Printout  which  will  be  described  later  in  this  report.  It  is 
usually  used  in  anlayzing  profiles  produced  by  other  models  where  all  stops 
are  explicitly  specified  and  where  anlaysis  of  these  profiles  using  the 
current  model  is  desired. 

The  fourth  profile  (Fig.  5)  is  similar  to  the  second  profile  except  the 
"LS"  option  is  used  to  take  the  last  stop  at  20  FSW.  After  stopping  at  20 
FSW  a  direct  ascent  to  the  surface  Is  made.  However,  a  0.0  min  10  FSW  stop 
is  still  computed  so  that  the  Decompression  Model  Parameters  will  be  computed 
and  recorded  every  stop  depth  increment  until  the  surface  is  reached.  In 
this  case  there  is  no  advantage  to  taking  the  last  stop  at  20  FSW  since  the 
total  decompression  time  is  the  same  as  in  the  second  profile. 

In  the  fifth  profile,  a  switch  from  a  1.0  ATA  constant  PO2  to  a  79Z  inert 
gas  fraction  is  made  at  20  FSW.  Line  49  in  the  input  file  in  Fig.  3 
generates  the  profile  up  to  Zero  Time  35.22  min.  Line  51  in  Fig.  3  takes  a  0 
min  stop  at  20  FSW  and  switches  to  an  inert  gas  fraction  of  79Z.  In  the 
Profile  Output,  two  more  entries  are  made  at  20  FSW.  Both  are  for  0  min  so 
two  additional  entries  at  a  zero  time  of  35.22  min  are  made.  The  only  thing 
that  has  happened  during  this  0.0  min  stop  is  that  the  gas  switch  was  made. 
Line  53  in  Fig.  3  specified  a  2  min  stop  before  ascending  to  the  surface  at 
60  FPM.  The  2  min  stop  causes  two  additional  entries  to  be  made  at  20  FSW, 
both  at  37.22  min.  The  first  is  the  2  min  stop  and  the  second  a  0  FSW  depth 
change.  The  reason  there  was  no  depth  change  is  that  the  Model  determined 
that  additional  time  had  to  be  spent  at  20  FSW  before  ascending.  The  Model 
computed  a  20.58  min  additional  stop  time  at  20  FSW  then  a  55.38  min  stop  at 
10  FSW  before  ascending  to  the  surface.  Since  "FN"  was  specified  in  line  54 
of  Fig.  3,  the  profile  is  done.  Line  56  of  Fig.  3  is  "MO"  signifying  that  no 
further  profiles  follow. 

All  profiles  in  Fig.  3  specified  printouts  of  the  Model  Profile 
Parameters.  These  will  be  discussed  later  when  the  Decompression  Model  is 
presented.  Also  note  that  the  "TX"  option  was  used  in  **1  profiles  so  that 
the  descent  time  to  150  FSW  was  subtracted  from  the  specified  time  at  150 
FSW.  This  option  allows  one  to  enter  times  as  U.S.  Navy  Bottom  Times  which 
are  defined  as  descent  time  plus  actual  time  at  depth. 

In  all  of  the  above  examples  only  "square  dive"  profiles  were  shown,  that 
is,  descent  to  some  depth  for  a  specified  time  with  ascent  to  the  surface. 
Fig.  6  shows  the  Profile  Coordinate  Input  File  and  Profile  Output  for  a 
complicated  multiple  depth  dive  showing  how  multiple  depth  dives  are 
handled. 


Program  TBLP7 

This  program  is  basically  the  same  as  Program  DMDB7  with  the  exception  of 
some  constraints  on  the  Profile  Coordinate  Input  File,  a  different  output 
format,  and  rounding  off  of  all  bottom  and  stop  times  to  whole  numbers.  A 
complete  listing  of  Program  TBLP7  is  found  in  Appendix  A-2  and  only  the 
differences  between  Program  TBLP7  and  DMDB7  will  be  discussed. 
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PROFILE  OUTPUT 


Is  21  PM  TUE.,  5  JAN.,  1982 
PROGRAM  DMD87  USING  10  FSU  STOPS 
HVAL09< HELIUM  ) 

PROFILE  COORDINATE 

INPUT  FILE  130^30 


0001  HVAL09 
0002  1,10 
0003  130/30 

0004  .79,1.0 

0003  0,0,60 

0006  PI 
0007  0,130,60 

0008  PI 
0009  30,60,60 

0010  PI TX 
0011  60,90,60 

0012  P 1 
0013  30,120,60 

0014  PI 
0013  40,30,60 

00t6  Pt 
0017  20,30.60 

0013  PI 
0019  30,0,60 

0020  PI 
0021  120,0,60 
0022  PI 
0023  0.200,60 

0024  PI 
0023  60,30,30 

0026  PI 

0027  120,130,30 

0028  PI 
0029  60,30,60 

0030  PI 
0031  120,0.30 

0032  PtFN 
0033  YES 
0034  NO 


ZERO  TIME 

ELAPSED  TIME 

DEPTH 

RATE 

GAS 

0.00 

0.00 

0 

60 

79.00  ■/. 

0. 00 

0.00 

0 

0 

79.00  V. 

0.00 

0.00 

0 

60 

1 . 00  ATA 

2.30 

2.30 

150 

0 

1 . 00  ATA 

30.00 

27.30 

130 

-60 

1 . 00  ATA 

31  .30 

1  .30 

60 

0 

1 . 00  ATA 

91  .30 

60.00 

60 

60 

1 . 00  ATA 

92.00 

.50 

90 

0 

1 . 00  ATA 

122.00 

30.00 

90 

60 

1 . 00  ATA 

122.30 

.50 

120 

0 

1 . 00  ATA 

162.30 

40.00 

120 

-60 

1 . 00  ATA 

164.00 

1  .30 

30 

0 

1 . 00  ATA 

184.00 

20.00 

30 

60 

1 . 00  ATA 

184.33 

.33 

SO 

0 

1 . 00  ATA 

214.33 

30.00 

30 

-60 

1 . 00  ATA 

214.83 

.30 

20 

0 

1 . 00  ATA 

225.37 

10.33 

20 

-60 

1 . 00  ATA 

223 . S3 

,17 

1  0 

0 

1 . 00  ATA 

294.16 

68.62 

1  0 

-60 

1 . 00  ATA 

294.32 

.17 

0 

0 

1 . 00  ATA 

414.32 

120.00 

0 

60 

79.00  X 

414.32 

0.00 

0 

0 

79.00  X 

414.32 

0.00 

0 

60 

1 . 00  ATA 

417.66 

3.33 

200 

0 

1 . 00  ATA 

477.66 

60.00 

200 

-30 

1 . 00  ATA 

481 .66 

4.00 

80 

0 

1 . 00  ATA 

492.24 

10.38 

80 

-30 

1 . 00  ATA 

492.37 

.33 

70 

0 

1 . 00  ATA 

303.71 

11.13 

70 

-30 

1 . 00  ATA 

304. 04 

.33 

60 

0 

1 . 00  ATA 

313.17 

11.13 

60 

-30 

1 . 00  ATA 

313.30 

.33 

30 

0 

1  . 00  ATA 

633.30 

120.00 

50 

30 

1 . 00  ATA 

638.84 

3.33 

150 

0 

1 . 00  ATA 

698.84 

60.00 

130 

-60 

1 . 00  ATA 

700.50 

1  .67 

30 

0 

1 . 00  ATA 

708.00 

7.30 

50 

-60 

1  . 00  ATA 

708. 17 

.  17 

40 

0 

1  . 00  ATA 

749.75 

41  .58 

40 

-60 

1  . 00  ATA 

749.92 

.17 

30 

0 

1  .  00  ATA 

869 . 92 

120.00 

30 

-30 

1  .  00  ATA 

870.23 

.33 

20 

0 

1  . 00  ATA 

908.1 1 

37.86 

20 

-30 

1 . 00  ATA 

908.45 

.33 

to 

0 

1  .  00  ATA 

1 038 . 24 

129.79 

1  0 

-30 

1 . 00  ATA 

1 038 . 57 

.33 

0 

0 

1  .  00  ATA 

FIGURES.  MULTIPLE  DEPTH  DIVE  PROFILE  COORDINATE  INPUT  FILE 
AND  PROFILE  OUTPUT.  SEVENTY  NINE  PERCENT  INERT  GAS 
BREATHED  DURING  ALL  INTERVALS  AT  0  FSW. 

BOTH  60  FSW/MIN  AND  30  FSW/MIN  RATES  USED. 


First  the  input  file  constraints  will  be  discussed.  All  Profile 
Coordinate  Input  Files  coapatible  with  Program  TBLP7  will  work  with  Program 
DMDB7  but  the  reverse  is  not  true.  As  with  Program  DMDB7 ,  all  rates 
specified  in  the  input  file  must  be  non-zero  numbers  but  they  must  all  be 
whole  numbers  greater  than  1.  However,  in  Program  TBLP7,  the  very  first  rate 
on  the  very  first  profile  coordinate  input  line  of  the  file  will  be  used  for 
all  subsequent  profiles.  Also,  the  first  gas  tensions  input  for  the  first 
profile  will  remain  in  effect  for  all  subsequent  profiles.  Each  profile 
description  for  Program  TBLP7  must  be  as  shown  in  Fig.  7.  Tissue  gas 
tensions  are  initialized  at  the  surface  and  changed  just  before  descent 
begins.  If  no  gas  switch  is  desired,  then  one  specifies  the  same  inert  gas 
option  for  both  option  lines.  If  this  convention  is  not  followed,  then  the 
bottom  times  and  stop  times  will  not  appear  in  their  proper  spot  in  the 
printout.  Also  note  that  the  "TX“  option  oust  always  be  used  for  decompres¬ 
sion  dives  and  that  the  time  specified  in  the  seventh  line  of  each  profile 
must  not  only  be  a  whole  number  but  oust  also  include  descent  time.  Profiles 
used  with  Program  TBLP7  must  be  “bounce  dives",  that  is,  descent  is  made 
directly  to  some  depth,  time  is  spent  at  that  depth,  and  then  decompression 
to  the  surface  occurs.  Program  TBLP7  will  accept  only  “bounce  dive"  profiles 
and  only  one  descent  and  ascent  are  allowed.  Once  ascent  is  begun,  it  may  be 
stopped  to  switch  breathing  gases  but  no  descents  must  occur;  only  continued 
ascents  to  the  surface  with  intervening  stops.  The  “LS“  option  allows  the 
last  stop  to  be  taken  at  any  desired  depth;  however,  it  is  up  to  the  user  to 
ensure  that  in  fact  a  sufficient  stop  can  be  taken  at  the  specified  depth  to 
allow  ascent  to  the  surface.  If  the  last  stop  depth  specified  is  too  deep,  a 
stop  time  of  9999  min  will  be  returned. 

Program  TBLP7  expects  all  profiles  in  the  input  file  to  be  described  in 
exactly  the  same  way.  The  only  differences  allowed  between  profiles  are  the 
bottom  times  and  depths. 

The  way  in  which  Program  TBLP7  rounds  off  times  depends  on  what  the  time 
is.  First  of  all,  all  depths  and  times  specified  in  the  Profile  Coordinate 
Input  File  must  be  whole  numbers.  When  a  no-decompression  time  is  computed 
the  program  adds  the  descent  time,  truncates  the  result,  and  subtracts  the 
descent  time.  Thus,  all  no-decompresslon  times  are  rounded  down  to  the 
nearest  decimal  number  which  when  added  to  the  descent  time  will  give  a  whole 
number.  When  the  program  computes  a  stop  time  it  adds  0.9  min  to  the  value 
and  truncates  the  result.  However,  no  matter  how  small  the  stop  time  the 
stop  time  will  be  1  min.  It  should  be  noted  that  all  roundoffs  occur 
before  any  model  updates  are  done  so  that  the  actual  rounded  off  stop  times 
are  used  to  update  the  model  during  ascent.  In  certain  cases,  when  a  deeper 
stop  has  been  rounded  up,  the  additional  decompression  will  allow  the  next 
shallower  scop  to  be  a  minute  shorter. 

As  Program  TBLP7  computes  each  decompression  schedule  the  depths  and 
times  are  stored  In  an  array.  After  the  decompression  schedule  computation 
has  been  completed  the  schedule  is  not  immediately  printed  but  is  recorded  in 
an  output  buffer  which  can  hold  up  to  one  page  of  schedules.  Only  when 
enough  schedules  have  been  recorded  to  fill  the  buffer  are  the  schedules 
printed  in  table  format,  a  page  at  a  time. 


TBLP7  Profile  Coordinates 


Profile  Identifier 
Gas  Tenaions 
0,  0,  Rate 
Options 

0,  Depth  1,  Rate 
Options 

Time,  Depth  2,  Rate 
Options  (TX) 

TIME,  Depth  N,  Rate 
Options  (FN) 

Yes 

Yes  ("No"  if  last  profile) 


FIGURE  7,  Profile  description  format  for  the  Profile  Coordinate  Input  File 

used  with  Program  TBLP7.  Each  profile  description  must  comply  with 
this  format.  Depth  1  is  the  bottom  depth  and  Time  Is  the  Bottom 
Time.  Depth  2  must  be  lass  than  Depth  1  and  all  subsequent  depth 
entries  must  be  equal  to  or  lass  than  the  preceding  depth  entry. 

The  TX  Option  must  always  be  specified  in  the  eighth  line  of  each 
profile  description. 
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Program  TBLP7  do«s  aoC  contain  the  Subroutine  RCRD7  so  Model  Profile 
Parameters  are  not  recorded.  If  this  Information  is  desired.  Program  DMDB7 
should  be  used. 


Program  Initialization  Procedure 
(Lines  193  -  245) 

This  is  the  same  as  in  Program  DMDB7  with  three  additional  functions 
being  performed  in  line  237-244.  The  array  DSTOPS  is  filled  with  the 
permissible  stop  depths  which  are  a  function  of  the  maximum  number  of  stops 
(NSTOP)  and  the  stop  depth  increment  DINC  (line  225-227).  The  maximum  number 
of  stops  is  dictated  by  FORMAT  Statements  50-64  (lines  172-186).  It  must  be 
remembered  that  if  the  value  of  NSTOP  is  changed,  then  FORMAT  Statements  43 
and  50-64  may  have  to  be  modified  accordingly.  The  maximum  bottom  time 
(BTMAX)  and  maximum  total  dive  time  (TDTMAX)  are  set  to  their  desired  values 
in  lines  243  and  244  which  will  restrict  the  schedules  which  will  eventually 
be  printed  depending  on  bottom  time  and  total  dive  time  values. 


Profile  Initialization  Procedure 
(Lines  258  -  289) 


In  Program  TBLP7,  the  inert  gas  tensions  and  rate  are  read  in  for  the 
first  profile  only  and  these  values  used  for  all  subsequent  profile 
coordinate  Inputs  in  the  Profile  Coordinate  Input  File.  The  first  RATE  is 
lntegerlzed  by  assigning  it  to  IRATE  (line  286)  so  fractional  rates  are  not 
allowed. 


Profile  Generation  and  Update  Loop 
(Lines  304  -  436) 


Statement  210  does  not  read  a  rate  as  it  does  in  Program  DMDB7  but  RATE 
is  always  set  to  the  value  of  IRATE,  which  was  specified  by  the  first 
profile.  Lines  374-377  specify  how  no-decompression  limits  are  computed. 
Since  all  bottom  times  must  be  whole  minutes,  the  actual  time  at  depth  must 
be  adjusted  so  that  when  it  is  added  to  the  descent  time  later  in  the  Profile 
Recording  Procedure  a  whole  number  results.  Subroutine  NLIM7  returns  the 
exact  no-decompression  bottom  time  which  may  be  0.0  min.  First  the 
no-decompression  time  is  adjusted  in  line  361  so  the  Bottom  Time  will  not 
exceed  the  maximum  value  specified  in  line  233.  In  line  377  a  time  at  depth 
is  computed  which  when  added  to  the  descent  time  will  be  a  whole  number. 
This  is  no  problem  as  long  as  when  TIME  is  added  to  the  descent  time  (T(K-l)) 
on  the  right  hand  side  of  the  equal  sign  the  result  is  greater  than  if  T(K-l) 
was  rounded  up  to  the  next  minute.  If  it  is  sot  then  a  negtlve  value  will 
result  When  T(K-l)  is  subtracted  from  the  truncated  value  of  T(K-l).  To 
prevent  this  the  minimum  time  added  to  T(K-l)  is  .99  min.  This  ensures  that 


Che  Tocal  Bottom  Time  will  never  be  less  than  the  descent  time.  Since  the 
value  of  TIME  computed  in  line  377  is  input  into  the  profile  generation 
procedure,  if  it  will  require  decompression  stops  they  will  be  computed. 
Thus,  some  dives  may  have  no  no-decompresslon  limit,  decompression  stops 
being  required  even  If  ascent  Is  begun  immediately  after  descent. 

The  legal  options  for  Program  TBLP7  are  the  same  as  those  for  Program 
DMDB7  to  retain  compatlblltiy.  However,  the  "DX"  is  meaningless  when  used 
with  Program  TBLP7  and  the  “TX"  option  must  always  be  used  in  the  eighth  line 
of  each  profile  (Pig.  7). 

Statement  219  (line  383)  adds  0.001  min  to  TIME  to  prevent  any  roundoff 
error  from  causing  the  integerlzed  time  values  In  the  output  procedure  to  be 
truncated  to  the  next  lower  minute.  The  Subroutine  RCRD7  is  not  used  and  gas 
tensions  and  gas  tension  labels  are  not  recorded  as  they  are  In  Program  DMDB7 
because  they  are  not  needed  on  output. 


First  Stop  Depth  Computation  Procedure 
(Lines  454  -  477) 

This  is  identical  to  that  used  in  Program  DMDB7. 


Stop  Time  Computation  Procedure 
(Lines  499  -  545) 

This  is  the  same  as  that  used  in  Program  DMDB7  except  that  all  exits  back 
to  Statement  220  are  via  Statement  440  (line  540)  so  the  stop  times  will  be 
rounded  up  to  the  next  0.9  min.  This  means  that  stop  times  are  rounded  down 
only  If  they  exceed  a  whole  minute  by  less  than  6  seconds.  However,  non-zero 
stop  times  are  never  rounded  down  to  less  than  1  minute  (line  540). 


Profile  Recording  Procedure 
(Lines  563  -  681 ) 

This  procedure  has  no  counterpart  in  Program  DMDB7.  After  each  decom¬ 
pression  schedule  Is  computed  it  is  stored  In  array  IPRO  for  later  princout. 
Each  time  IPRO  fills  up  a  page  of  schedules  is  printed  before  any  further 
schedules  are  computed.  IPRO  can  hold  26  schedules  but  only  25  schedules  are 
printed  per  page.  This  allows  the  26th  schedule  to  be  computed  and  stored 
before  the  other  25  schedules  are  printed.  After  printout,  the  schedule  In 
the  26th  position  Is  moved  to  the  first  position  In  IPRO  and  schedule 
computation  and  recording  continues.  The  structure  of  IPRO  is  shown  In  Fig. 
8. 

The  procedure  begins  by  ensuring  in  line  568  that  the  first  stop  depth 
contained  in  D(6)  is  not  greater  than  the  maximum  value  allowed  by  the  output 
format  (which  Is  currently  15  stop  depth  increments).  If  it  is,  recording 
skipped.  Next  the  counter  X  Is  decremented  by  one  so  it  points  to  the  last 
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OUTPUT  ARRAY 

PARAMETER  NAME 

DECOMPRESSION  PROFILE 

ELEMENT 

ARRAY  ELEMENTS 

IPRO  (1,  N) 

Depth 

D(5) 

(2,  N) 

Bottom  Time 

ZT(5) 

<3,  N) 

Time  to  First  Stop  (min.) 

1 

(4,  N) 

Time  to  First  Stop  (10's  sec.) 

}  T(6) 

(5.  N) 

Time  to  First  Stop  (l's  sec.) 

J 

(6,  N) 

150  FSW  Stop  Time  (min.) 

T(K-29) 

(7,  N) 

140  FSW  Stop  Time  (min.) 

T(K-27) 

• 

(20,  N) 

10  FSW  Stop  Time  (min.) 

T(K-l) 

(21,  N) 

Total  Ascent  Time  (min.) 

1 

(22,  N) 

Total  Ascent  Time  (10's  sec.) 

>  ZT(K)-ZT(5) 

(23,  N) 

Total  Ascent  Time  (l’s  sec.) 

J 

(24,  N) 

Total  Number  of  Stops 

FIGURE  8.  Output  Profile  Array  structure  for  the  Nth  decompression  sched¬ 
ule.  Each  schedule  may  only  have  24  elements  in  IPRO  which 
restrict  schedules  to  those  having  the  first  stop  at  15  stop  depth 
Increments  or  shallower. 
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entry  in  the  profile  arrays.  Then  the  Zero  Time  is  computed  by  serially 
summing  the  time  increments  in  array  T  (line  573-575).  At  line  586  the  total 
dive  time,  ZT(K),  is  compared  to  the  maximum  value  (TDTMAX)  which  was 
specified  in  line  244.  As  long  as  TDTMAX  is  not  exceeded,  control  goes  to 
Statement  513  (line  585)  where  the  logical  variable  NORCRD  is  set  to  "false" 
and  recording  proceeds.  When  TDTMAX  is  exceeded  for  the  first  time,  NORCRD 
will  be  "false"  and  control  will  drop  through  to  line  583  where  it  will  now 
be  set  to  "true".  Control  then  goes  to  Statement  515  where  recording 
proceeds  normally  for  this  profile.  However,  if  the  Total  Dive  Time  is  still 
greater  than  the  maximum  value  the  next  time  through  line  583  will  transfer 
control  to  Statement  560  (line  668)  thus  skipping  the  recording  procedure. 
The  overall  effect  of  this  is  that  the  first  profile  with  a  Total  Dive  Time 
which  exceeds  the  maximum  is  recorded  but  subsequent  profiles  will  not  be 
until  the  Total  Dive  Time  decreases  to  less  than  the  maximum. 

The  four  statements  beginning  at  Statement  515  (line  590)  check  for  other 
conditions  which  will  determine  whether  or  not  a  schedule  will  be  recorded. 
The  first  schedule  computed  by  the  program  (NPRO  *  0)  is  always  recorded. 
Also,  if  the  maximum  depth  of  the  dive  has  changed  from  that  of  the  previous 
profile  the  schedule  is  always  recorded.  In  line  597  if  the  bottom  time  of  a 
profile  is  less  than  that  of  a  previous  profile  the  decompression  schedule  is 
not  recorded.  The  overall  effect  of  lines  596  and  597  is  that  schedules  with 
the  same  bottom  depth  are  printed  with  progressively  Increasing  bottom  times. 
In  line  598,  if  the  schedule  requires  decompression  stops  it  is  always 
recorded.  At  this  point,  all  schedules  which  reach  line  603  are  for 
no-decompression  dives.  Since  the  no-decompression  time  for  a  given  depth 
may  not  be  known  in  advance  it  is  possible  to  have  several  schedules  with 
progressively  increasing  bottom  times  which  are  all  no-decompression  dives. 
Since  only  the  longest  no-decompression  time  is  of  interest,  these  schedules 
are  recorded  without  Incrementing  NPRO  by  skipping  Statement  535  until  the 
first  schedule  requiring  decompression  stops  is  encountered.  Thus,  no- 
decompression  profiles  overwrite  the  previously  recorded  one  until  the  first 
decompression  schedule  requiring  stops  is  encountered.  All  other  recorded 
schedules  increment  NPRO  at  Statement  520  so  they  are  recorded  in  the  next 
available  position  in  IPRO. 

Lines  612  through  617  compute  the  Total  Ascent  Time  (ASTIM) ,  round  it  off 
to  the  nearest  second,  then  records  the  whole  minutes,  tens  of  seconds  and 
seconds  units  in  the  three  separate  elements  in  IPRO.  Next,  the  Time  to  the 
First  Stop  (TFS)  is  rounded  off  and  scored  in  the  same  manner  as  the  ascent 
time  (lines  622-628).  Line  623  checks  for  no-decompresslon  dives  (depth  of 
first  stops,  D(6)  *  DINC;  stop  time,  T(7)  ■  0)  and  sets  the  Time  to  the  First 
Stop  and  Total  Ascent  Time  equal.  Storing  ASTIM  and  TFS  in  the  manner 
described  above  makes  for  a  nicer  printout.  Next,  the  dive  depth  and  bottom 
time  are  recorded  in  lines  632-633. 

Lines  638  through  661  contain  the  Instructions  for  recording  stop  times 
in  the  proper  elements  of  IPRO.  U  is  computed  in  line  638  and  will  point  to 
the  element  in  IPRO  which  will  contain  the  first  stop  depth.  In  line  642  the 
total  number  of  stops  is  computed  and  stored  in  the  last  position  in  IPRO. 
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Fig.  8  shows  Che  positions  in  IPRO  for  all  permissible  scops.  As  one  records 
scops  Che  usual  case  will  be  Chat  after  Che  first  scop  there  will  be  only  one 
scop  every  DINC  depth  increment  (Profile  1  and  2,  Fig.  4,  Profile  4,  Fig.  5). 
However,  in  some  cases  there  may  be  more  than  one  stop  time  at  a  given  depth. 
In  the  fifth  profile  (Fig.  5),  there  are  three  separate  stop  times  at  20  FSW 
(0  min,  2  min,  and  20.58  min).  Program  TBLP7  will  add  all  these  together  to 
get  one  22.58  min  stop  and  record  the  whole  20  FSW  stop  only  once  in  IPRO. 
The  variable  ISTOP  is  initially  set  to  the  depth  of  the  first  stop  (line  648) 
and  is  decreased  one  depth  increment  each  time  a  stop  time  is  recorded  into 
IPRO  (line  661).  NK  initially  points  to  the  position  in  array  T  just  ahead 
of  where  the  stop  time  is.  The  DO  loop  beginning  at  line  653  steps  through 
all  stops  beginning  at  the  depth  of  the  first  stop.  The  array  IPRO  has  been 
filled  with  all  zero's  Initially  by  a  DATA  Statement  (line  151)  and 
subsequently  at  line  787.  The  first  stop  time  is  added  to  the  value  in  the 
first  stop  element  in  IPRO.  NR  is  Increased  by  2  to  point  to  the  next  stop 
depth.  If  it  is  still  the  same  (line  660)  control  goes  back  to  Statement  545 
(line  654)  where  this  stop  time  is  added  to  the  previous  one.  Thus,  all 
stops  at  a  given  depth  will  be  accumulated  into  a  single  stop  time.  When  the 
next  shallower  scop  depth  is  encountered ,  the  next  element  of  IPRO  will  be 
used  to  record  the  stop  time. 

After  finishing  the  recording,  the  next  record  in  the  Profile  Coordinate 
Input  File  is  skipped.  This  line  of  input  specifies  whether  or  not  the  Model 
Profile  Parameter  Printout  is  desired  and  is  only  used  in  Program  DMDB7.  The 
next  line  of  input  specifies  whether  or  not  another  profile  will  follow  and 
the  answer  (“YES"  or  “NO")  is  read  into  the  variable  MORE.  Next,  a  check  is 
made  to  see  if  the  buffer  IPRO  is  full;  if  it  is,  a  page  of  profiles  is 
printed.  Then  if  another  profile  follows,  control  is  transferred  back  to 
Statement  200  (line  261)  and  the  next  profile  read  in.  If  no  more  profiles 
follow,  chen  the  contents  of  IPRO  are  printed  out. 


Table  Printout  Procedure 
(Lines  696  -  808) 


This  procedure  prints  out  a  page  of  decompression  schedules.  A  typical 
page  is  shown  in  Fig.  9.  Lines  701-705  establish  the  value  of  IC0NC  which 
will  point  to  the  correct  gas  tension  label  in  array  C0NLBL.  Note  that  CP02 
will  have  whatever  value  it  had  after  computing  the  last  schedule.  Lines  709 
through  717  print  out  all  the  header  information.  In  line  723  the  bottom 
depth  of  the  first  profile  on  the  page  is  recorded  so  that  when  the  depth 
changes,  a  special  delimiter  line  can  be  printed  out  between  groups  of 
schedules  with  the  same  bottom  depth.  The  DO  loop  beginning  at  line  728 
prints  out  the  schedules,  one  line  at  a  time.  If  the  profile  depth  has 
changed  then  a  special  delimiter  line  is  printed  and  ICHNG  is  set  to  the  new 
depth  (line  736-739).  The  number  of  stops  stored  in  the  last  position  of  the 
current  row  in  IPRO  specifies  which  WRITE  Statement  (line  751-779)  will  be 
used  to  print  out  that  particular  decompression  schedule.  This  allows  all 
stops  deeper  than  the  first  stop  to  be  left  blank  and  makes  for  a  nicer 
looking  printout. 
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FIGURE  9.  PAGE  OF  DECOMPRESSION  TABLES  AS  PRINTED  BY  PROGRAM  TBLP7. 
THESE  TABLES  ARE  THE  SAME  AS  THE  0.7  ATA  CONSTANT  P02  TABLES  FOUND 

IN  REFERENCE  4. 
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After  the  contents  of  IPRO  have  been  printed,  the  schedule  In  the  last 
position  is  aoved  up  to  the  first  (reaeaber  that  IPRO  holds  one  more  schedule 
than  will  fit  on  a  page),  and  all  other  positions  in  IPRO  are  filled  with 
zeros  (line  785-788).  NPRO  is  set  to  "1"  signifying  that  only  a  single 
schedule  is  now  in  IPRO  and  a  check  made  to  see  if  more  profile  descriptions 
are  present  in  the  Profile  Coordinate  Input  File.  If  MORE  is  "YE(S)"  than  a 
fora  feed  is  executed  and  prograa  control  goes  to  Stateaent  200  (line  261)  to 
begin  reading  in  the  next  profile.  If  no  more  profiles  follow  but  the 
printout  occurred  because  IPRO  was  full,  control  goes  back  to  Stateaent  570 
(line  674)  to  print  out  the  last  schedule  before  stopping.  Finally,  a 
delimiter  line  is  printed  below  the  last  decompression  schedule  printed,  a 
fora  feed  is  executed  and  the  prograa  stops. 
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DECOMPRESSION  MODEL 


SUBROUTINES 


Model  Overview 


There  are  8  subrouClnes  which  comprise  Che  MK  15/16  Decompression  Model 
(Fig.  1).  The  Model  is  based  on  a  maximum  of  9  tissue  tensions  contained  in 
an  array.  The  number  and  halftimes  of  the  tissues  are  specified  in  an  input 
file  along  with  the  ascent  criteria.  The  basis  of  the  model  is  Subroutine 
UPDT7  which  updates  the  tissue  tensions  over  a  specific  time  interval  and 
depth  change  (one  profile  subsegment).  In  addition  to  updating  the  tissue 
tension.  Subroutine  UPDT7  also  computes  the  Instantaneous  Ascent  Depth  (IAD) 
which  is  the  shallowest  depth  which  could  be  ascended  to  instantaneously 
without  violating  the  ascent  criteria.  In  the  course  of  developing  the 
Decompression  Model,  two  versions  of  Subroutine  UPDT7  were  used.  Version  1 
assumes  exponential  uptake  and  linear  offgassing.  This  version  is  the  one 
currently  being  used  to  compute  the  MK  15/16  Constant  0.7  ATA  Oxygen  Partial 
Pressure  Decompression  Tables  for  either  helium  or  nitrogen  inert  gas. 
Version  2  was  actually  the  first  one  tested  and  assumes  exponential  uptake 
and  offgassing.  This  Version  2  of  Subroutine  UPDT7  updates  tissue  tensions 
according  to  the  classical  Hal da ni an  approach  assuming  no  gas  phase  forms  and 
testing  of  decompression  schedules  computed  in  this  way  are  reported  in  NEDO 
Report  11-80  (1).  Each  version  of  Subroutine  UPDT7  has  a  corresponding 
version  of  Subroutine  STIM7  associated  with  it.  Subroutine  STIM7  computes 
the  amount  of  time  required  at  a  given  depth  before  ascent  can  be  made  to  a 
new  depth.  It  is  important  that  the  proper  version  of  STIM7  be  loaded  with 
the  corresponding  version  of  UPDT7. 

Subroutine  FRSP7  computes  the  depth  of  the  first  stop  and  is  partially 
model  independent  since  no  assumptions  are  made  in  the  subroutine  about  how 
tissue  updating  is  done.  It  uses  Subroutine  UPDT7  to  compute  the  IAD  and 
goes  through  an  lnteratlon  to  find  the  depth  which  can  be  ascended  to  at  the 
specified  rate  without  changing  the  IAD.  Subroutine  NLIM7  uses  the  gas 
uptake  equations  to  get  an  estimate  of  the  no-decompression  time  at  a  given 
depth  but  uses  Subroutines  UPDT7  and  FRSP7  to  optimize  the  no-decompression 
time  to  the  nearest  0.3  seconds. 

Subroutine  BL0C7  initializes  the  variables  in  all  the  common  blocks  and 
Subroutine  INIT7  initializes  the  Model  by  saturating  all  tissues  at  the 
specified  starting  depth.  The  final  two  subroutines  perform  input  and  output 
functions  for  the  model.  Subroutine  RDIN7  reads  in  the  Model  Parameter  Input 
File  which  contains  the  ascent  criteria.  Stop  Depth  Increment,  Units  of  Depth 
input  (feet  or  meters),  tissue  haltlmes,  number  of  tissues  and  Saturation- 
Desaturation  Ratios.  While  some  variation  in  the  computed  decompression 
schedules  can  be  made  by  changing  the  values  in  the  common  blocks  as 
specified  by  Subroutine  BLOC 7 ,  the  major  changes  in  the  decompression 
schedules  are  made  by  changing  the  values  specified  in  the  Model  Parameter 
Input  File,  usually  the  ascent  criteria.  Subroutine  RDIW7  will  also  print 
out  the  values  in  the  Model  Parameter  Input  File  before  the  actual 
decompression  profiles  or  tables  are  output.  Subroutine  RCRD7  performs  two 
functions.  In  the  record  mode  it  stores  tissue  tension  values  and  the 
corresponding  zero  time  in  an  array,  and  in  the  output  mode  it  prints  these 
values  out.  These  values  are  useful  in  analyzing  the  functioning  of  the 
Model  in  detail. 


Subroutine  BLOC  7 


This  subroutine  intiallzes  the  data  in  the  common  blocks  PARAM  and  BLDVL 
which  are  used  by  the  other  MK  15/ 16  Decompression  Model  Subroutines*  A 
listing  is  found  in  Annex  B-l.  The  Common  Block  PARAM  contains  the  Model 
ascent  criteria  array  M,  the  tissue  tension  array  P,  the  tissue  halftime 
array  HLFTM,  the  number  of  tissues  NTISS,  the  saturation-desaturation  ratio 
array  SDR  and  the  value  of  LAD  as  computed  by  Subroutine  UPDT7.  The  values 
assigned  to  this  common  block  by  the  DATA  Statement  at  line  38  are  really 
default  values  since  the  1-0  Program  will  usually  assign  values  to  these 
variables  from  the  Model  Parameter  Input  File.  The  Cooaon  Block  BLDVL 
contains  variables  whose  values  are  not  usually  changed  by  the  Model 
Subroutines.  These  variables  represent  blood  and  intrapulmonary  gas  press¬ 
ures  and  tensions.  The  values  assigned  to  these  variables  in  line  56  are  all 
in  feet  of  seawater  (FSU)  where  33  FSU  *  1  ATA  *  760  mmHg.  While  FSW  may 
seem  a  strange  unit  for  partial  pressures,  using  it  greatly  simplifies  the 
mathematics  in  many  of  the  other  subroutines.  It  must  be  noted  that 
different  decompression  profiles  or  sets  of  tables  may  require  different  secs 
of  values  for  variables  in  the  Common  Blocks  initialized  by  Subroutine  BL0C7. 
The  values  shown  in  Annex  B-l  are  appropriate  to  only  certain  decompression 
schedules.  The  values  required  in  BL0C7  for  the  various  decompression 
schedules  tested  during  the  MR  15/16  Decompression  Model  development  will  be 
described  in  Part  3  of  this  report. 

Subroutine  UPDT7 


Subroutine  UPDT7  updates  model  parameters  over  a  single  profile  subseg¬ 
ment.  It  is  the  heart  of  the  MK  15/16  Decompression  Model  since  it  describes 
all  of  the  gas  uptake  and  elimination  processes.  Two  versions  are  presented. 
The  one  for  the  E-L  Model  is  given  in  Annex  B-2  and  the  one  for  the  E-E  Model 
is  given  in  Annex  B-3.  No  physiological  rationalization  will  be  presented 
for  this  subroutine  here,  only  a  detailed  description  of  its  operation. 


Exponential -Linear  Version 


The  listing  for  the  E-L  Version  (Version  1)  of  Subroutine  UPDT7  is  found 
in  Annex  B-2.  The  corresponding  version  (Version  1)  of  Subroutine  STIM7  is 
found  in  Annex  B-5.  The  basis  of  Subroutine  UPDT7  are  two  gas  uptake  and 
elimination  equations  which  updats  up  to  9  halftime  tissues  during  linear 
depth  changes.  The  E-L  Model  assumes  that  all  gas  stays  in  solution  until 
the  total  tissue  gas  tension  exceeds  ambient  hydrostatic  pressure  by  an 
amount  called  the  gas  phase  overpressure.  While  in  solution  gas  uptake  and 
elimination  for  linear  depth  changes  are  described  by  Equation  2  of  Annex  B-2 
(line  317).  This  is  called  the  exponential  mode.  When  the  total  tissue  gas 
tension  exceeds  the  gas  phase  overpressure,  a  gas  phase  is  assumed  to  form 
and  gas  elimination  described  by  Equation  4  of  Annex  B-2  (line  493).  This  is 
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known  as  che  linear  node.  Most  of  Subroutine  UPDT7  is  concerned  with  finding 
the  exact  tine  at  which  the  transition  is  made  fron  Equation  2  to  Equation  4. 
If  the  partial  pressure  of  oxygen  is  constant  finding  the  tine  of  the 
transition  from  Equation  2  to  Equation  4  is  straightforward  and  is  given  in 
Statement  210  (line  363)  of  Annex  B-2.  If  the  fraction  of  inert  gas  is 
constant  finding  the  crossover  time  requires  an  interative  solution. 

In  cases  where  the  tissue  offgassing  is  initially  described  by  Equation  4 
the  transition  time  at  which  crossover  to  Equation  2  occurs  can  always  be 
found  by  explicitly  solving  Equation  3  for  T.  Equation  3  of  Annex  B-2  (line 
489)  describes  the  condition  at  the  crossover  time  T  and  is  a  quadratic 
equation  in  the  case  of  a  constant  inert  gas  fraction  and  a  linear  equation 
if  the  partial  pressure  of  oxygen  is  constant  (in  the  latter  case  the  rate  of 
change  of  oxygen  tension,  R02,  is  Zero). 

After  finding  the  crossover  time  the  tissue  tensions  are  updated  and  then 
the  Instantaneous  Ascent  Depth  (IAD)  is  computed.  The  IAD  is  the  shallowest 
depth  which  could  be  ascended  to  Instantaneously  without  violating  any  of  the 
ascent  criteria  contained  in  array  M.  The  IAD  is  used  by  other  Decompression 
Model  Subroutines. 

Initialization  Procedure 
(Lines  140  -  167) 


The  variable  IPRNT  is  set  to  “0"  to  suppress  printout  of  iteration 
values.  Setting  It  to  "1"  will  cause  all  Intermediate  Iteration  values  to  be 
printed  out  each  time  the  Newton-Raphson  iteration  is  performed  later  on. 
The  iteration  values  are  always  printed  no  matter  what  the  value  of  IPRNT  if 
more  than  ten  iterations  are  performed  without  convergence.  Note  that  there 
are  four  rates  which  are  used  in  the  subroutine.  RATE  is  the  rate  of  depth 
change  passed  from  the  main  program  and  can  be  in  feet  or  meters  of  seawater 
(FSW  or  MSW)  per  minute*  This  rate  is  converted  to  RAMB  which  is  the  rate  of 
ambient  pressure  change  and  is  always  in  FSW/ min.  RINRT  is  the  rate  of  inert 
gas  change  and  R02  is  the  rate  of  inspired  oxygen  partial  pressure  change 
both  of  which  are  in  units  of  FSW/min.  If  the  oxygen  partial  pressure  is 
constant  then  R02  is  zero  and  RINRT  will  equal  RAMB.  If  the  inert  gas 
fraction  is  constant  both  R02  and  RINRT  are  non-xaro  and  may  or  may  not  be 
equal. 


Tissue  Update  Loop 
(Lines  183  -  608) 


This  DO  loop  contains  the  procedures  for  ud pa ting  the  tissue  gas  tensions 
over  a  single  profile  subsegment.  It  is  executed  once  for  each  of  the  NTISS 
tissues  in  the  Model.  In  lines  189-192  the  time  constants  for  saturating  and 
desaturatlng  tissues  are  calculated  as  well  as  the  initial  values  of  PAN 2  and 
PVSAT.  Since  these  last  two  variables  are  changed  during  loop  execution. 
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they  must  be  updated  to  their  initial  values  for  each  new  execution.  PVSAT 
represents  the  amount  of  inert  gas  in  the  venous  blood  if  the  blood  is  just 
saturated  to  ambient  pressure,  and  PAN2  is  the  arterial  inert  gaa  tension. 
The  initial  tissue  tension  PTI SS  is  set  to  the  value  stored  in  the  tissue 
tension  array  P  in  line  196.  P(I)  will  be  updated  to  its  new  value  at  the 
end  of  each  loop  execution.  Next,  In  line  201,  the  determination  is  made 
whether  the  tissue  is  initially  in  the  linear  (Equation  4)  or  exponential 
(Equation  2)  mode.  If  PTISS  exceeds  PVSAT  by  the  gas  phase  overpressure 
PBOVP,  a  gas  phase  is  assumed  to  exist  so  it  will  be  in  the  linear  mode  and 
control  is  transferred  to  the  linear  update  procedure  at  Statement  300  (line 
506).  If  not,  no  gas  phase  is  assumed  to  exist  so  the  tissue  is  in  the 
exponential  mode  and  the  program  drops  through  to  the  Exponential  Node  Time 
Computation  Procedure. 


Exponential  Node  Time  Computation 
(Lines  220  -  294) 


This  procedure  goes  through  several  checks  to  see  if  the  tissue  tension 
will  go  through  a  maximum  or  minimum  (node)  during  the  subsegment  time 
interval  TC.  Since  either  saturation  or  desaturation  may  occur  in  the 
exponential  mode,  logical  variable  DSAT  is  set  to  "true'*  or  "false'*  to  record 
the  initial  state  of  the  tissue  tension  change  in  lines  230  and  231.  The 
conditions  for  which  no  maximum  or  minimum  will  occur  are  checked  for  in 
lines  236,  242  and  250  and  control  transferred  either  to  the  exponential 
update  procedure  at  Statement  400  (line  584)  or  to  the  procedure  which  will 
compute  the  time  at  which  desaturation  goes  from  the  exponential  to  the 
linear  mode  at  Statement  200  (line  337).  At  line  254,  any  remaining  tissues 
will  have  a  node  and  the  time  at  which  this  node  will  occur  is  computed  in 
line  257.  Tissues  which  were  completely  saturated  at  the  current  depth  will 
have  a  node  at  0  min  (the  beginning  of  an  ascent)  and  will  be  desaturatlng 
for  the  entire  ascent.  Since  these  tissues  may  crossover  to  the  linear  mode 
line  262  will  transfer  control  to  Statement  200.  If  the  node  will  not  occur 
during  the  subsegment  time  interval  (TC)  then  the  tissue  will  remain 
exponential  and  line  267  will  transfer  control  to  the  exponential  update  at 
Statement  400.  At  line  273,  all  remaining  tissues  will  have  a  node  sometime 
during  the  time  Interval  TC  and  PAN2  and  PVSAT  are  updated  to  their  values  at 
the  time  of  the  node.  The  time  remaining  in  Interval  TC  after  the  node  is 
computed  for  later  use.  Finally,  at  line  276,  the  tissue  inert  gas  tension  is 
updated  to  its  value  at  the  node  which  by  definition  will  be  the  arterial 
inert  gas  tension.  The  tissue  is  initially  assumed  in  line  280  to  remain 
exponential  for  the  remainder  of  the  time  Interval  but  if  it  was  initially 
saturating  control  goes  to  the  Exponential-Linear  Crossover  Time  Computation 
Procedure  at  line  337  because  after  the  node  it  will  be  desaturatlng  and 
desaturatlng  tissues  will  eventually  go  to  linear  offgassing.  Line  293 
transfers  control  for  initially  desaturatlng  tissues  to  the  update  at 
Statement  400  (line  584)  after  the  variable  DESAT  has  been  set  to  "false" 
Indicating  that  after  the  node  the  tissue  will  be  saturating. 


Exponential -Linear  Crossover  Time  Computation  Procedure 

(Lines  334  -  472) 


Tissues  ending  up  at  Statement  200  are  all  desaturating  at  this  point  and 
may  go  to  the  linear  mode  if  the  total  tissue  gas  tension  exceeds  the  ambient 
pressure  by  the  gas  phase  overpressure  (PBOVP)  at  sometime  during  the  time 
interval  (TI)  remaining  after  the  node  has  occurred.  As  T  gets  very  large 
the  exponential  term  in  Equation  2  (line  317)  goes  to  0.0  and  Equation  2 
becomes  the  equation  of  the  asymptote: 


(5)  P(I)  -  (PAN2-RINRT/K)  +  RINRT  *  T 

The  equation  for  the  value  of  the  tissue  tension  at  the  ambient  pressure  at 
which  crossover  will  occur  is: 

(6)  pX0VER  "  PAMB  -  (PV02  +  PVC02  +  PH20)  +  PBOVP  +  RAMB  *  T 

Crossover  will  occur  when  PxoVER  "P(I).  If  the  straight  line  described  by 
Equation  6  is  to  the  left  of  the  line  described  by  Equation  5,  then  P(I)  will 
have  to  assume  a  value  of  PLOVER  sometime  as  it  approaches  the  asymptote. 
Since  RAMB  is  always  greater  than  or  equal  to  RINRT,  the  line  described  by 
Equation  6  will  be  to  the  left  of  that  described  by  Equation  5  if  the 
interoept  of  the  Equation  5  line  is  greater  than  that  of  the  Equation  6  line. 
The  condition  for  which  this  is  true  is  given  in  line  343  of  Subroutine  UPDT7 
and  if  met,  control  passes  to  statement  210  (line  363)  where  a  crossover  time 
is  computed. 

If  the  asymptote  line  described  by  Equation  5  is  to  the  left  of  that 
described  by  Equation  6,  crossover  may  not  always  occur.  If  the  Intercept  of 
the  Equation  5  line  is  below  that  of  the  Equation  6  line  the  two  lines  will 
Intersect  only  if  RINRT  is  less  than  RAMB.  This  cannot  occur  if  the  oxygen 
partial  pressure  is  constant  so  crossover  will  never  occur  (line  348)  and 
control  goes  directly  to  the  Exponential  Update  at  Statement  400.  In  line 
352,  the  time  where  the  lines  described  by  Equations  5  and  6  Intersect  is 
computed  and  if  this  does  not  occur  within  the  remaining  time  in  the  interval 
TI  then  no  crossover  will  occur  and  line  357  transfers  control  to  the 
Exponential  Update.  If  Intersection  does  occur  within  time  TI,  crossover  may 
occur  and  the  time  T  is  used  as  a  starting  guess  for  the  iteration  and 
control  passes  to  the  iteration  at  Statement  220  (line  384). 

Statement  210  can  be  arrived  at  only  if  the  conditions  in  line  343  have 
been  met  as  discussed  above.  The  time  computed  here  is  the  exact  crossover 
time  if  the  oxygen  partial  pressure  is  constant  and  if  it  is  the  iteration  is 
skipped,  control  going  directly  to  Statement  280  (line  455).  If  the  fraction 
of  inert  gas  is  constant  rather  than  the  partial  pressure,  then  this  time 
will  be  the  maximum  time  to  crossover  and  is  used  as  a  starting  point  for  the 
iteration  to  follow. 


36 


:  ■  '-faiaT 


Newton-Raphson  Iteration 
(Lines  381  -  443) 


Beginning  at  Statement  220,  constants  for  the  equations  used  in  the 
iteration  are  computed  and  the  number  of  iterations  initially  set  to  0.  In 
line  393  7,  represents  the  difference  between  the  right  and  left  hand  sides 
of  Equation  1  (line  313)  and  will  be  exactly  0.0  when  the  time  T  exactly 
equals  the  crossover  time.  DY  in  line  394  is  the  first  derivitive  of  7.  The 
initial  values  of  T  as  computed  in  line  352  or  363  and  7  as  computed  in  line 
393  are  used  to  start  the  Iteration  and  the  values  of  T,  7,  DY  and  Y/DY  for 
each  execution  of  the  iteration  are  stored  in  the  array  VALIT  in  case  they 
are  needed  later.  Line  413  specifies  the  convergence  criteria  and  the  loop 
is  exited  when  they  are  met.  Only  ten  passes  are  made  through  the  Iteration 
and  if  the  convergence  criteria  have  not  been  met  by  then  the  iteration  is 
halted  at  line  417  and  the  values  stored  in  VALIT  are  printed  out.  Under 
certain  conditions  the  value  of  7  will  oscillate  around  0.0  and  this 
condition  is  checked  for  in  line  425  and  426.  When  this  happens,  lines  427 
and  428  compute  the  maximum  error  for  the  time  estimate  and  if  it  is  less 
than  0.0001  min  the  iteration  is  halted.  This  substantially  cuts  down  the 
number  of  iterations  required  in  many  cases.  The  old  time  estimate  and  value 
of  7  are  scored  in  T1  and  71  and  a  new  estimate  of  T  is  made  before  returning 
to  the  start  of  the  iteration  at  Statement  230  (line  392). 

Statement  270  (line  440)  will  cause  the  values  stored  in  array  VALIT  to 
be  printed  if  no  convergence  has  occurred  within  ten  iterations  or  if  IPRNT 
was  sec  to  H1N  in  line  141.  Control  drops  through  to  Statement  280  where  the 
crossover  time  is  assigned  the  value  of  T  either  from  the  Newton-Raphson 
Iteration  or  Statement  210  (line  363).  If  the  crossover  occurs  outside  of 
the  remaining  time  interval  TI,  then  line  456  transfers  control  to  Statement 
400  and  the  tissue  is  updated  exponentially.  If  not,  pertinent  variables  are 
updated  to  the  crossover  time  in  lines  463-470.  The  time  remaining  in  the 
time  interval  (TLIN)  is  computed  in  line  471  and  since  the  tissue  will  be  in 
the  linear  mode  line  472  transfers  control  to  the  Linear  Update  at  Statement 
450  (line  593). 


Linear-Exponential  Crossover  Time  Computation  Procedure 

(Lines  503  -  571) 


In  this  procedure,  Equation  3  (line  489)  is  solved  for  T.  The  equation 
can  be  put  into  quadratic  form: 


(7) 


(A  *  T**2)  +  (B  *  T)  +  C  -  0 


Constants  A,  B  and  C  are  given  in  lines  518-520.  The  variable  D  in  line  521 
is  the  square  root  term  of  the  quadratic  formula  for  the  solution  of  Equation 
7.  If  either  B  or  D  are  less  than  0.0  or  if  B  equals  0.0,  no 
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crossover  will  occur  and  line  52S  transfers  control  to  the  linear  update  at 
Statement  450  (line  593).  If  the  oxygen  tension  is  constant  then  R02  is  0.0 
causing  A  to  assume  a  value  of  0.0,  the  square  term  disappears  from  Equation 
7  and  the  crossover  time  is  simply  the  ratio  C/B  (line  530).  If  the  inert 
gas  fraction  is  constant,  the  quadratic  formula  gives  the  solution  for  the 
crossover  time  and  the  root  will  always  be  the  smallest  of  the  two  roots 
which  is  given  in  line  531.  If  the  crossover  time  is  outside  the  interval  TC 
then  the  tissue  will  stay  linear  for  the  entire  interval  so  control  goes  to 
Statement  450  (line  593).  If  not,  then  all  pertinent  values  are  updated  to 
the  crossover  time  and  DESAT  is  set  to  "true’’  (line  542-545).  Next  the  now 
exponential  tissue  is  updated  to  its  node  (if  it  occurs  in  the  remaining 
time)  before  going  to  the  exponential  update  (line  550-571). 


Tissue  Inert  Gas  Update  Procedures 
(Lines  581  -  595) 


Line  584  is  the  Exponential  Update  Equation  2  (line  317)  and  line  595  is 
the  Linear  Update  Equation  4  (line  493).  After  P(I)  is  updated  by  the 
appropriate  equation  control  goes  back  to  the  beginning  of  the  loop  at  line 
188  until  all  NTISS  tissues  have  been  updated. 


Instantaneous  Ascent  Depth  Computation  Procedure 
(Lines  625  -  636) 


After  all  tissues  have  been  updated  then  the  Instantaneous  Ascent  Depth 
(IAD)  is  computed.  The  LAD  is  used  by  other  Decompression  Model  Subroutines 
and  is  the  shallowest  depth  which  could  be  instantaneously  ascended  to 
without  violating  the  ascent  criteria.  In  the  MR  15/16  Decompression  Model 
the  ascent  criteria  are  contained  in  the  array  M  which  is  a  table  of  maximum 
tissue  tensions  for  each  depth  increment.  The  values  in  the  array  are 
initlallly  determined  by  analyzing  existing  tables  and  then  they  are  adjusted 
empirically  based  on  manned  diving  experience.  The  method  of  developing  the 
values  in  the  array  M  will  not  be  covered  here,  but  will  be  the  subject  of 
further  reports.  The  array  M  has  NTISS  columns,  one  for  each  tissue 
compartment  and  30  rows,  representing  depths  from  1  stop  depth  increment  to 
30  stop  depth  increments.  Assume  that  stop  depth  increments  of  10  FSW  have 
been  chosen.  Then  the  first  row  of  the  array  M  represents  the  maximum  tissue 
inert  gas  tension  at  10  FSW  which  will  allow  ascent  to  0  FSW,  the  second  row 
the  maximum  tissue  inert  gas  tension  at  20  FSW  which  will  allow  ascent  to  10 
FSW  and  so  on.  The  IAD  is  found  by  comparing  all  tissue  inert  gas  tensions 
to  their  respective  maximum  values  starting  at  the  300  FSW  row.  If  all 
tissue  tensions  are  equal  to  or  less  than  the  values  in  this  row  of  the  array 
then  ascent  can  be  made  to  290  FSW.  This  comparison  continues  until  at  least 
one  tissue  tension  exceeds  the  maximum.  At  this  depth  further  ascent  would 
violate  the  ascent  criteria  so  the  depth  of  this  row  of  array  M  is  the  IAD. 
The  IAD  is  used  as  a  first  approximation  for  the  depth  of  the  first  stop  as 
will  be  discussed.  Note  that  the  maximum  tissue  tensions  in  array  M  are  all 
in  units  of  FSW  but  that  the  stop  depth  increment  DINC  is  in  meters  or  feet 
depending  on  the  units  used  in  the  Profile  Coordinate  Input  File. 
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After  coaputlog  the  IAD  the  tissue  tension  update  is  complete  and  the 
subroutine  returns  control  to  the  main  program. 


Exponential-Exponential  Version 

The  listing  for  the  E-E  Version  (Version  2)  of  Subroutine  UPDT7  is  found 
in  Annex  B-3.  This  version  must  be  used  with  the  E-E  Version  (Version  2)  of 
Subroutine  STIM7  listed  in  Annex  B-6.  The  E-E  Version  of  Subroutine  UPDT7  is 
similar  to  the  E-L  Version  in  that  all  tissues  are  first  updated  to  their 
maximum  or  minimum  nodes  and  there  are  separate  time  constants  for  uptake  and 
elimination.  In  the  E-E  Version  gas  uptake  and  elimination  are  assumed  to 
always  be  exponential,  and  it  is  assumed  that  no  gas  phase  ever  forms. 


Initialization  Procedure 
(Lines  113  -  137) 


Only  PAMB,  PA02  and  RINRT  are  calculated.  The  other  variables  initial¬ 
ized  in  the  E-L  version  are  not  used. 

Tissue  Update  Loop 
(Lines  152  -  257) 

This  loop  is  executed  once  for  each  of  the  NTISS  tissues.  In  lines 
157-159,  the  exponential  time  constant  for  uptake  (KSAT)  and  elimination 
(KDSAT)  are  computed  along  with  the  arterial  inert  gas  tension  (PAN2).  The 
initial  tissue  tension  PTISS  is  initialized  in  line  163  to  the  appropriate 
value  in  array  P. 


Node  Time  Computation  Procedure 
(Lines  178  -  228) 


This  procedure  is  similar  to  the  Exponential  Node  Time  Computation 
Procedure  in  the  E-L  version.  First,  in  lines  187-188,  the  value  of  DSAT  is 
set  to  "true”  or  "false"  depending  on  whether  or  not  the  tissue  is  saturating 
or  desaturatlng.  If  the  depth  is  constant  (RATE  ■  0)  there  is  no  node  and 
control  passes  directly  to  the  update  at  Statement  400  (line  240).  Also, 
there  will  be  no  node  for  saturating  tissues  undergoing  descent  or  desaturat¬ 
lng  tissues  undergoing  ascent  (line  192,  202).  Both  of  these  conditions 
cause  immediate  transfer  of  control  to  the  Exponential  Update  Procedure  at 
statement  400  (line  240).  In  line  209  the  time  of  the  node  occurance  is 
calculated  using  the  saturation  or  desaturation  time  constant  as  appropriate. 
If  this  time  is  less  than  0.0  or  greater  than  the  time  interval  TC  control  is 
transferred  at  line  214  to  the  Exponential  Update  Procedure.  If  the  node 
does  occur  within  the  time  Interval  TC  the  tissue  inert  gas  tension  and 
arterial  inert  gas  tension  are  updated  to  the  node  and  the  time  remaining 
aftar  the  node  computed  (line  220-222).  The  variable  DESAT  is  complemented 
in  line  227  and  control  drops  through  to  the  Exponential  Update  Procedure. 
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Exponential  Update  Procedure 
(Lines  240  -  245) 


This  procedure  updates  the  tissue  for  a  linear  ascent  or  descent.  After 
the  update  is  complete,  control  is  transferred  back  to  the  beginning  of  the 
loop  until  all  NTISS  tissues  have  been  done.  After  all  tissues  have  been 
updated,  control  drops  through  to  the  procedure  which  computes  the  Instantan¬ 
eous  Ascent  Depth. 


Instantaneous  Ascent  Depth  Computation  Procedure 
(Lines  273  -  284) 


This  procedure  is  identical  to  the  one  used  in  the  E-L  Version  of  UPDT7. 


Subroutine  FRSP7 


This  subroutine  finds  the  depth  of  the  first  stop  for  a  specified  ascent 
rate.  The  depth  of  the  first  stop  is  passed  back  to  the  main  program  as  an 
argument  of  the  subroutine  (DFS),  all  other  data  is  passed  in  the  three 
common  blocks  PARAM,  BLDVL  and  MDATA.  The  subroutine  uses  the  Instantaneous 
Ascent  Depth  (IAD)  calculated  by  Subroutine  UPDT7  as  a  first  approximation  of 
the  first  stop  depth.  A  trial  update  at  the  specified  rate  is  performed 
first  to  DINC  deeper  than  the  IAD  then  if  all  ascent  criteria  are  met  at 
DINC+IAD  to  IAD  itself.  Depending  on  the  rate  of  ascent  and  the  initial 
tissue  tensions  the  tissues  may  saturate  or  desaturate  during  the  trial 
ascent  and  may  have  taken  up  excess  gas  (in  which  case  the  new  IAD  after 
ascent  will  have  increased),  offgassed  sufficiently  to  go  shallower  (in  which 
case  the  new  IAD  will  have  decreased)  or  still  have  just  enough  gas  on  board 
to  require  a  stop  at  IAD  (in  which  case  the  IAD  will  not  have  changed). 
Depending  on  whether  the  IAD  has  increased  or  decreased  after  the  trial 
ascent,  the  first  stop  depth  estimate  is  increased  or  decreased  in  increments 
of  the  stop  depth  increment  (DINC)  until  the  IAD  before  and  after  ascent  are 
the  same  and  are  in  fact  equal  to  the  depth  which  has  just  been  ascended  to. 


Initialization  Procedure 
(Lines  105  -  119) 


The  depth  of  the  first  stop  (DFS)  is  initially  set  to  the  current  depth 
and  if  the  current  depth  is  equal  to  or  shallower  than  the  IAD,  CDEPTH 
becomes  the  first  stop  depth.  This  precaution  is  necessary  for  two  reasons. 
The  first  is  that  if  the  DX  option  is  used  for  an  ascent  one  could  end  up  at 
a  depth  shallower  than  the  IAD.  If  the  DX  option  were  not  specified  for  the 
next  ascent,  the  subroutine  would  attempt  to  descend  to  the  IAD  causing  a 
negative  descent  time  to  be  computed.  Father  than  have  that  happen,  a  stop 
will  simply  be  taken  at  CDEPTH  until*  ascent  is  possible.  The  second 
situation  will  occur  if  a  0  min  stop  is  taken  at  a  decompression  stop  during 
ascent  (as  in  changing  breathing  gases)  in  which  case  the  current  depth  will 
be  equal  to  the  IAD.  In  this  case  (unless  precautions  are  taken)  a  trial 
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descent  would  be  performed  to  DINC+IAD  cnusing  the  tissue  tensions  to 
increase  and  .an  anomalous  stop  to  be  taken  at  DINC+IAD.  In  the  auto-decom¬ 
pression  mode  one  can  never  go  too  shallow  so  the  depth  of  the  first  stop 
will  never  be  deeper  than  the  current  depth.  Line  110  ensures  this  is  always 
the  case. 

In  lines  115  to  118  the  logical  variable  LASTIT  is  initialized  to  "false" 
and  the  current  tissue  tensions  and  IAD  stored  temporarily  because  they  will 
be  changed  when  Subroutine  UPDT7  is  called  to  do  the  trial  ascent. 

Depth  of  First  Stop  Iteration  Loop 
(Lines  133  -  191) 

The  variable  MIND  is  set  initially  to  the  IAD  and  in  lines  137-143  a 
trial  update  is  done  from  the  current  depth  to  MIND+DINC.  This  must  be  done 
because  the  definitions  of  the  ascent  criteria  requires  that  they  be  met  DINC 
deeper  than  a  given  depth  before  ascent  to  that  depth  is  possible.  In  lines 
144  and  145  the  tissue  tensions  and  IAD  are  restored  to  their  original 
values.  If  after  ascent  to  MIND+DINC  the  IAD  has  increased,  control  is 
transferred  by  line  152  to  line  161  where  it  will  drop  through  to  line  173. 
If  the  IAD  has  remained  the  same  or  decreased  during  the  first  trial  ascent 
lines  153-155  do  another  trial  ascent  to  IAD.  If  the  new  IAD  equals  MIND 
(the  value  of  IAD  before  ascent)  then  line  161  transfers  control  to  Statement 
50  (line  188)  where  the  value  of  the  depth  of  the  first  stop  (DFS)  is  set  to 
MIND  and  the  subroutine  exited. 

If  IAD  and  MIND  are  not  equal  after  the  trial  ascent  then  control  goes  to 
line  173.  Since  additional  tissue  saturation  or  desaturation  takes  place 
during  ascent  it  is  unlikely  that  MIND  and  IAD  will  be  equal  the  first  time 
through  the  loop.  The  usual  sequence  of  events  is  that  the  value  of  MIND  is 
systematically  increased  or  decreased  and  by  the  second  iteration  the  value 
of  IAD  doesn't  change  after  the  trial  update  and  the  loop  is  exited  at  line 
161  with  MIND  containing  the  value  of  the  depth  of  the  first  stop.  In  a  very 
few  cases,  however,  the  IAD  may  increase  on  one  pass  through  the  loop  and 
decrease  on  the  next.  This  occurs  when  a  tissue  is  still  saturating  during 
ascent.  On  the  first  trial  update  all  tissue  tensions  will  be  less  than 
their  maximum  permissible  values  contained  in  array  M  and  the  new  I.  AD 
decreases  by  one  depth  increment  after  the  trial  update  to  the  original  value 
of  IAD.  The  next  time  through  the  loop  the  trial  update  will  be  to  the  new 
value  of  IAD.  If  a  tissue  was  saturating  during  ascent  it  may  have  taken  up 
enough  additional  gas  during  the  additional  ascent  to  the  new  IAD  to  just 
exceed  its  maximum  permissible  value.  Thus,  when  the  next  trial  update  is 
done  the  value  of  I.AD  will  decrease  by  one  depth  increment.  This  oscillation 
will  continue  Indefinitely  because  the  tissue  will  have  a  tension  just  below 
its  maximum  permissible  value  at  the  deeper  trial  stop  and  just  above  it  at 
the  shallower  trial  stop.  Since  the  ascent  criteria  state  that  once  the 
maximum  permissible  tissue  tension  has  been  reached  at  a  given  depth  that 
ascent  to  the  next  shallower  depth  increment  is  allowed  the  depth  of  the 
first  stop  is  taken  at  the  shallower  of  the  two  depths,  and  assigned  to 
MIND. 


Once  the  depth  of  the  first  st*.->  has  been  found  the  IAD  is  restored  to 
Its  original  value,  the  value  of  the  integer  MIND  is  assigned  to  the  real 
variable  DFS  and  the  subroutine  returns  control  to  the  main  program  (lines 
188-191). 
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Subroutine  STIM7 


This  subroutine  computes  the  time  which  must  be  spent  at  a  given  depth 
before  ascent  to  a  shallower  depth  can  be  accomplished  without  violating  the 
ascent  criteria.  Subroutine  STIM7  Is  never  called  before  Subroutine  FRSP7 
has  been  called  to  first  establish  the  depth  of  the  first  stop.  Once  the 
depth  of  the  first  stop  has  been  established.  Subroutine  STIM7  is  usually 
called  to  see  how  much  time  must  be  spent  at  a  given  stop  before  ascending 
one  depth  increment  to  the  next  shallower  stop.  However,  provision  is  made 
for  ascent  to  any  depth  after  stopping  and  in  situations  where  the  next 
shallower  stop  is  more  than  one  stop  depth  increment  shallower,  a  special 
optimization  procedure  is  used  to  shorten  the  stop  time  to  take  advantage  of 
any  additional  decompression  which  may  occur  during  ascent. 

Ascent  may  be  limited  by  one  of  two  phenomena.  A  desaturatlng  tissue 
will  be  offgassing  and  its  tissue  tensions  must  decrease  to  the  maximum 
permissible  value  as  specified  in  array  M  before  ascent  is  allowed.  In  these 
cases,  the  stop  time  is  regulated  by  the  desaturation  time.  In  other  cases, 
a  tissue  may  be  saturating  and  the  stop  time  will  be  determined  by  the  time 
it  takes  this  tissue  to  saturate  to  its  maximum  permissible  value.  This  is 
called  the  saturation  time.  Either  the  saturation  or  desaturation  time  is 
computed  for  each  of  the  halftime  tissue  and  the  longest  desaturation  time 
and  the  shortest  saturation  time  is  saved.  After  the  saturation  or 
desaturation  time  has  been  computed  for  all  NTISS  tissues,  the  shortest  of 
either  the  saturation  or  desaturation  time  becomes  the  stop  time.  The  next 
depth  to  be  ascended  to  after  the  stop  (SDEPTH)  and  the  scop  time  (TIME)  are 
passed  as  subroutine  variables.  Two  versions  of  Subroutine  STIM7  are 
presented.  The  E-L  version  (Version  2)  is  used  with  the  E-L  version  of 
Subroutine  TJPDT7  in  Annex  B— 2  and  the  E-E  version  (Version  2)  is  used  with 
the  E-E  version  of  Subroutine  UPOT7  in  Annex  B-3. 


Exponential-Linear  Version 

The  listing  of  this  version  of  Subroutine  STIM7  is  found  in  Annex  B-5. 


Initialization  Procedure 
(Lines  119  -  140) 


In  lines  122,  127-136,  the  ambient  pressure,  arterial  oxygen  tension  and 
the  venous  and  arterial  inert  gas  tension  are  computed.  In  line  134,  the 
desaturation  time  is  Initialized  to  its  smallest  possible  value  (0.0)  and  in 
line  135  the  ssturation  time  is  initialized  to  its  largest  possible  value 
(9999  min)  which  is  considered  an  infinite  time.  Finally,  in  line  139,  the 
depth  or  row  subscript  of  array  M  which  is  associated  with  the  next  shallower 
depth  SDEPTH  is  computed.  It  is  this  row  of  maximum  permissible  tissue 
tensions  which  must  not  be  exceeded  before  ascent  to  SDEPTH  can  be 
accomplished. 
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Trial  Desaturation  and  Saturation  Stop  Time  Computation  Procedure 

(Lines  158  -  258) 


This  procedure  is  executed  once  for  each  of  the  NTISS  tissues  in  the 
model.  In  lines  165  and  166  the  saturation  and  desaturation  time  constants 
for  the  tissue  under  consideration  are  computed.  Then  in  line  170  control  is 
passed  to  the  Saturation  Trial  Stop  Time  Computation  at  Statement  100  (_ine 
239)  if  the  tissue  is  saturating.  It  it  is  not,  control  drops  through  to  the 
Desaturation  Trial  Stop  Time  Computation. 


Desaturation  Trial  Stop  Time  Computation 
(Lines  177  -  229) 


In  lines  181  and  182,  the  Trial  Stop  Time  is  set  to  0.0  if  the  tissue 
tension  is  already  less  than  or  equal  to  the  nurr< mum  permissible  tissue 
tension  at  SDEPTH.  In  line  187  and  188,  the  Trial  Stop  Time  is  set  to  9999 
min  (infinity)  if  the  arterial  inert  gas  tension  is  greater  than  or  equal  to 
the  ma-r-( mnt»  permissible  value.  It  must  be  remembered  that  all  tissues  which 
are  desaturatlng  will  approach  the  arterial  inert  gas  tension  asymptotically, 
so  if  the  arterial  inert  gas  tension  is  greater  than  or  equal  to  the  maximum 
permissible  value  in  array  M,  ascent  to  SDEPTH  will  never  be  possible. 

Once  it  has  been  determined  that  a  tissue  can  have  a  non-zero  finite 
positive  stop  time,  it  must  be  determined  whether  the  tissue  is  decaying 
linearly  or  exponentially.  If  the  dissolved  tissue  tension  is  less  than  or 
equal  to  the  venous  inert  gas  tension,  then  the  gas  phase  will  have 
disappeared  and  the  tissue  will  be  decaying  exponentially.  By  setting  PLIN 
to  the  dissolved  tissue  tension  in  line  195  in  these  cases,  the  stop  time  for 
the  linear  portion  of  the  tissue  desaturation  as  computed  in  line  203  will  be 
0.0.  If  the  dissolved  inert  gas  tension  is  greater  than  the  venous  inert  gas 
tension  then  PLIN  is  set  to  PVN2  in  line  201  because  when  the  tissue  has 
desaturated  to  this  value,  further  desaturation  will  be  exponential.  If  the 
maximum  permissible  inert  gas  tension  is  greater  than  the  venous,  the  tissue 
will  have  satisfied  the  ascent  criteria  without  ever  entering  the  exponential 
mode  so  PLIN  is  set  in  line  202  to  the  maximum  permissible  value  in  array 
M,so  that  the  stop  time  for  the  exponential  portion  of  the  desaturation  as 
computed  in  line  214  will  be  0.0.  After  computing  the  time  required  for 
linear  desaturation  in  line  203,  the  procedure  will  fix  the  time  spent  in  the 
exponential  mode  to  0.0  if  the  maximum  permissible  inert  gas  tissue  tension 
is  above  the  venous  (line  209-210).  The  time  for  the  exponential  portion  of 
the  desaturation  is  computed  in  line  215  and  the  exponential  or  linear  times 
are  summed  in  Statement  40  (line  219)  to  get  the  total  stop  times  for  this 
particular  desaturatlng  tissue.  In  line  224,  it  is  assured  that  the  largest 
scop  time  which  can  be  computed  is  9999.  minutes.  Finally,  at  Statement  50, 
the  largest  desaturation  time  computed  so  far  is  saved  as  TDSAT  before  either 
proceeding  on  the  next  tissue  or  exiting  the  loop  if  all  NTISS  tissues  have 
been  done. 
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Saturation  Trial  Stop  Time  Computation 
(Lines  235  -  258) 


Saturating  tissues  always  stay  exponential  and  a  positive  finite  stop 
time  will  exist  if  the  dissolved  inert  gas  tension  is  less  than  the  maximum 
permissible  value  in  array  M  (line  246).  The  saturation  stop  times  are 
computed  in  line  250  but  can  never  be  negative  (line  251).  A  negative  stop 
time  might  occur  because  of  roundoff  error  causing  the  log  argument  function 
to  be  less  than  1.0  in  line  250.  The  shortest  saturation  time  is  saved  in 
line  256  before  doing  the  next  tissue  or  exiting  the  loop. 

In  line  267  the  smallest  of  the  saturation  or  desaturation  stop  times  is 
assigned  to  TIME  as  the  stop  time.  Line  271  will  terminate  the  subroutine  if 
the  depth  to  be  ascended  to  after  the  current  stop  is  not  more  than  one  DINC 
shallower  than  the  current  depth.  Also,  the  subroutine  is  terminated  if  a 
non-zero  positive  finite  stop  time  was  not  found  (line  275). 


Stop  Time  Optimization  Procedure 
(Lines  292  -  350) 


If  ascent  is  to  be  greater  than  DINC  and  a  non-zero  positive  stop  time 
exists,  then  it  may  be  possible  to  shorten  the  stop  time  to  take  advantage  of 
the  additional  decompression.  The  two  logical  variables  used  in  this 
procedure  are  initialized  in  lines  295  and  296  and  the  current  tissue  tension 
and  LAD  stored  temporarily  in  lines  300-302  anticipating  the  trial  update  by 
Subroutine  UPDT7  which  will  change  these  values.  In  lines  306  -309,  a  trial 
update  for  the  trial  stop  time  previously  calculated  at  the  current  depth  is 
done  and  Subroutine  FRSP7  called  to  compute  the  depth  of  the  first  stop 
(DFS).  If  the  value  of  DFS  as  returned  by  Subroutine  FSSP7  is  greater  than 
S DEPTH  (the  next  shallower  stop  depth)  the  first  time  through  the  procedure, 
no  optimization  is  possible.  This  usually  means  a  tissue  is  saturating 
during  ascent  and  will  actually  exceed  the  maximum  permissible  tissue  tension 
at  SDEPTH  when  It  is  reached.  If  DFS  is  less  than  or  equal  to  SDEPTH, 
optimization  may  be  possible. 

In  lines  313-315,  the  tissue  tensions  and  LAD  are  restored  to  their 
original  values.  Line  319  will  transfer  control  to  Statement  430  (line  340) 
if  the  value  of  DFS  is  greater  than  SDEPTH.  If  it  is  not,  FIRSTM  is  set  to 
"false"  signifying  that  the  first  pass  through  the  procedure  has  been 
completed.  In  line  329,  if  the  stop  time  is  0.0  or  if  IDFS  has  been  set  to 
"true"  in  line  348  on  a  previous  pass,  the  optimization  is  over  and  the 
subroutine  is  terminated.  In  line  334,  the  stop  time  is  shortened  by  0*1  min 
(but  never  to  a  value  less  than  0.0)  before  returning  to  Statement  400  (line 
300)  for  another  update.  Shortening  of  the  stop  time  will  occur  until  the 
value  of  DFS  as  computed  by  Subroutine  FRSP7  in  line  311  just  exceeds 
SDEPTH. 
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When  DFS  exceeds  SDEPTH,  control  Is  transferred  at  line  319  to  Stateaent 
430  (line  340)  and  if  this  happens  the  first  time  through  the  procedure 
(FIRSTM  is  "true1*),  the  subroutine  is  terminated  because  optimization  is  not 
possible.  If  it  is  not  the  first  time  through  then  the  stop  time  is 
increased  in  .005  min  increments.  IDFS  is  set  to  “true'*  so  that  as  soon  as 
the  stop  time  has  been  increased  sufficiently  to  cause  DFS  to  equal  SDEPTH, 
line  329  will  cause  the  subroutine  to  terminate. 

Exponential-Exponential  Version 

The  E-E  Version  of  Subroutine  STIM7  should  only  be  used  with  the  E-E 
▼era ion  of  Subroutine  UFDT7.  The  E-E  Version  of  Subroutine  STIM7  is 
basically  the  same  as  the  E-L  Version  except  that  the  linear  portion  of  the 
gas  elimination  is  assumed  not  to  take  place,  both  gas  uptake  and  elimination 
being  assumed  exponential.  A  listing  of  this  version  of  Subroutine  STIM7  is 
found  in  Annex  B-6. 


Initialization  Procedure 
(Lines  117  -  137) 


The  venous  inert  gas  tension  does  not  appear  in  this  subroutine  and  is 
not  initialized.  Otherwise  the  procedure  is  the  same  as  for  the  E-L 
Version. 


Trial  Desaturation  and  Saturation  Stop  Time  Computation  Procedure 

(Lines  155  -  231) 


The  major  difference  in  this  section  from  the  E-L  Version  is  the 
procedure  for  finding  the  trial  stop  time  for  deaaturatlng  tissues.  Since 
all  offgassing  is  exponential  once  it  has  been  verified  that  conditions  at 
the  stop  will  allow  decay  to  the  maximum  permissible  level  in  array  M  in 
lines  179  and  185,  only  the  exponential  stop  time  has  to  be  computed  (line 
189).  The  procedure  for  finding  the  stop  time  for  saturating  tissues  is 
identical  to  that  in  the  E-L  Version. 

From  line  236  on,  the  E-E  version  of  STIM7  is  identical  to  that  portion 
of  the  E-L  version  beginning  at  line  264  in  Annex  B-6. 


Subroutine  NLIM7 

Annex  B-7  contains  the  listing  for  this  subroutine.  This  subroutine 
finds  ^ha  maximum  tins  which  can  be  spent  at  the  current  depth  which  will 
allow  i  direct  ascent  to  the  surface  without  violating  the  ascent  criteria. 
The  no-decompression  time  is  passed  as  the  variable  TIME  with  the  subrou¬ 
tine.  \ 


The  no-decompression  time  Is  firse  estimated  by  computing  the  time  it 
takes  for  each  tissue  to  exponentially  saturate  to  a  level  where  the  tissue 
tension  Just  equals  the  maximum  permissible  value  at  1  ATA  (that  is,  the 
values  in  the  first  row  of  array  M).  The  trial  no-decompression  time  is  the 
shortest  of  all  the  times  computed  for  each  tissue.  Since  this  trial 
no-decompression  time  assumes  instantaneous  ascent,  an  optimization  procedure 
is  performed  which  will  lengthen  or  shorten  the  trial  no-decompression  time 
until  the  tissue  tensions  are  exactly  equal  to  their  maximum  permissible 
values  at  the  surface  after  a  linear  ascent  at  a  finite  rate. 


Initialization  Procedure 
(Lines  112  -  125) 


The  logical  variable  IDFS  which  is  used  later  on  in  the  Optimization 
Procedure  is  set  to  "false".  The  ambient  pressure,  arterial  oxygen  tension 
and  arterial  inert  gas  tensions  are  computed  and  the  no-decompression  time  is 
initialized  to  9999  min  which  is  defined  as  being  essentially  infinite. 


Trial  No-Decompression  Time  Computation  Procedure 
(Lines  141  -  166) 


This  procedure  is  a  DO  loop  which  is  executed  once  for  each  of  the  NTISS 
tissues.  If  the  tissue  tension  already  exceeds  its  maximum  permissible 
value,  the  trial  no-decompresslon  time  is  set  to  0.0  min  (line  147,  148).  If 
the  arterial  inert  gas  tension  is  less  than  the  surfacing  maximum  tension 
then  the  tissue  can  surface  without  decompression  even  after  saturating  and 
the  no-decompresslon  time  is  set  to  9999  min  (line  153,  154).  In  lines 
158-163,  the  trial  no-decompresslon  time  is  computed  for  all  other  tissues 
and  the  smallest  value  saved  as  the  final  trial  no-decompresslon  time  in  line 
164. 

If  the  trial  no-decompression  time  is  0.0  or  9999  then  optimization  is 
not  possible  and  line  179  transfers  control  to  Statement  40  (line  241)  and 
the  subroutine  is  exited. 


No-Decompression  Time  Optimization  Procedure 
(Lines  190  -  231) 


The  current  tissue  tensions  in  array  P  are  stored  in  array  TP  (the  LAD 
was  temporarily  stored  in  line  175)  anticipating  a  trial  update  by  Subroutine 
UPDT7  which  will  change  the  tensions  in  array  P  as  mil  as  the  IAD.  In  lines 
198-201  a  trial  update  at  the  current  depth  is  done  and  then  Subroutine  FRSP7 
is  called  to  find  the  depth  of  the  first  stop.  Following  this,  the  tissue 
tensions  in  array  P  are  restored  to  their  original  values  in  lines  205  and 
206. 


If  Che  depth  of  Che  first  stop  (DFS)  Is  not  0.0  then  some  gas  uptake  is 
taking  place  during  decompression  and  the  trial  no-decompresslon  time  is  too 
long.  If  DFS  is  0.0  then  all  one  can  say  is  that  the  trial  no-decompression 
time  is  not  too  long  but  it  may  be  too  short.  The  remainder  of  the  procedure 
beginning  at  line  210  will  add  time  in  0.1  min  increments  to  the  trial 
n<r*decampression  time  (line  218)  until  DFS  is  no  longer  0.0.  At  this  point, 
one  can  say  that  at  the  most  the  no-decompression  time  is  0.1  min  too  long. 
Since  DFS  will  now  exceed  DING,  line  210  transfers  control  to  Statement  30 
(line  225)  where  the  trial  stop  time  is  shortened  in  0.005  min  increments. 
Since  IDFS  was  set  to  "true",  as  soon  as  the  trial  no-decompression  time  has 
been  shortened  sufficiently  such  that  DFS  is  again  0.0  then  line  217  will 
transfer  control  to  Statement  40  where  the  subroutine  is  exited.  If  the 
trial  no-decompression  time  at  any  time  decreases  to  0.0  then  line  230  will 
immediately  transfer  control  to  Statement  40.  If  a  finite  positive  time 
results  from  the  optimization  procedure  it  will  be  at  the  most  .005  min  (0.3 
sec)  too  short. 

Statement  40  restores  the  IAD  to  its  original  value  and  the  subroutine  is 
exited. 


Subroutine  INIT7 


In  this  subroutine  the  model  is  initialized  at  CDEPTH.  CDEPTH  is  usually 
0.0  but  may  be  any  value.  All  tissue  inert  gas  tensions  are  set  equal  to  the 
arterial  inert  gas  tension  at  CDEPTH.  A  listing  is  found  in  Annex  A-8. 


Subroutine  RCRD7 


This  subroutine  which  is  listed  in  Annex  B-9  has  two  modes.  If  MODE  is 
"1"  then  line  90  transfers  control  to  the  printout  procedure  beginning  at 
Statement  200  (line  136).  Otherwise,  control  drops  through  to  the  recording 
procedure. 


Recording  Procedure 
(Lines  100  -  121) 


The  tissue  tensions  in  array  P  are  recorded  in  array  TT  in  the  row 
specified  by  CNTR.  If  this  is  the  very  first  record,  line  108  causes  line 
109  to  be  skipped  so  that  the  recorded  Zero  Time  will  retain  the  value  of  "0" 
set  in  the  DATA  Statement  in  line  76.  Otherwise,  line  109  sums  the  elapsed 
time  since  last  recording  Zero  Time  with  the  previous  Zero  Time  to  get  its 
current  value.  Tissue  gas  tensions  are  stored  in  columns  1  through  9  of 
array  TT,  Zero  Time  in  column  10  and  the  inert  gas  tension  in  column  11. 
CNTR  is  automatically  incremented  in  line  119  each  time  the  recording 
procedure  is  executed. 
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Printout  Procedure 
(Lines  135  -  139) 


The  tissue  inert  gas  tensions,  zero  tine  and  gas  tensions  are  written  out 
to  the  line  printer.  The  tissue  halftimes  and  saturation  desaturation  ratios 
are  written  in  a  label  for  the  appropriate  tissue  tension  column.  Figures 
10,  11  and  12  show  examples  of  Model  Profile  Parameter  Output  for  the 
profiles  in  Fig.  4  and  5.  In  these  cases,  9  tissues  were  specified  so  there 
are  9  columns  of  tissue  tensions.  If  less  than  9  tissues  had  been  specified, 
zeros  would  have  appeared  in  columns  where  a  tissue  was  not  specified. 
Column  10  is  the  Zero  Time  and  keys  the  9  tissue  tensions  to  the  rowB  having 
corresponding  zero  times  in  the  profiles  of  Fig.  4  and  5.  Tissue  tensions 
are  printed  in  the  last  column  but  are  unlabeled.  Figure  13  is  the  Model 
Profile  Parameter  Output  for  the  multiple  depth  dive  profile  shown  in  Figure 
6. 

The  array  TT  can  hold  up  to  100  profile  subsegments  or  50  profile 
segments;  in  this  case,  the  same  number  as  the  dive  profile  arrays  in  Program 
DMDB7. 


Subroutine  KDIN7 

This  subroutine  reads  in  the  data  in  the  Model  Iput  Parameter  File.  A 
complete  listing  is  found  in  Annex  B-10.  Since  different  computer  operating 
systems  handle  disk  files  in  different  manners  this  subroutine  must  be 
tailored  not  only  to  the  Decompression  Model  used  but  to  the  operating  system 
as  well.  All  subroutines  except  one  which  is  used  by  this  subroutine  are 
part  of  the  Hewlett-Packard  RTE  IV-B  Operating  System  and  will  not  be 
discussed.  Subroutine  FMPER  is  a  subroutine  which  was  especially  written  to 
decode  any  error  messages  which  may  occur  when  manipulating  disk  files  and  a 
listing  is  given  for  completeness  in  Annex  D.  No  detailed  description  of 
Subroutine  FMPER  is  given,  the  comments  contained  in  the  subroutine  should  be 
sufficient  for  those  familiar  with  the  RTE  IV-B  Operating  System.  Subroutine 
FMPER  is  not  necessary  for  proper  execution  of  Subroutine  RDIN7  and  can  be 
left  out.  Its  only  purpose  is  to  print  out  any  errors  which  occurred  during 
disk  file  manipulation  as  soon  as  it  occurs.  Without  this  subroutine  the 
program  would  simply  stop  if  an  error  occurred  and  the  operating  system  would 
have  to  be  interrogated  to  find  the  reason. 


Model  Parameter  Input  Files 


A  typical  Model  Parameter  Input  File  (MPIF)  which  is  read  by  Subroutine 
RDIN7  is  shown  in  Figures  14  and  15.  This  particular  file  consists  of  3 
sub-files  each  33  lines  long.  There  is  no  limit  to  the  number  of  sub-files 
which  may  be  contained  in  each  MPIF,  however,  each  sub-file  must  be  exactly 
33  lines  long  and  conform  to  the  format  in  Figures  14  and  15. 
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FIGURE  13.  MODEL  PROFILE  PARAMETER  PRINTOUT  AS  PRINTED  BY  SUBROUTINE  RCRD7  FOR 

THE  PROFILE  IN  FIGURE  6. 


HVAL09  T-00004  IS  ON  CR00060  USING  00029  SLKS  R-0000 


0001  120.000  98.000  80.000  68.000  56.000  48.000  47.500  47.000  46.900 
0002  132.000  110.000  92.000  80.000  69.000  60.000  59.500  59.000  53.800 
0003  144.000  122.000  104.000  92.000  80.000  72.000  71.500  71.000  70.800 
0004  156.000  134.000  116.000  104.000  92.000  84.000  83.500  83.000  82.800 
0005  168.000  146.000  128.000  116.000  104.000  96.000  95.500  95.000  94.800 
0006  180.000  158.000  140.000  128.000  116.000  108.000  107.500  107.000  106.800 
0007  192.000  170.000  152.000  140.000  128.000  120.000  119.500  119.000  118.800 
0008  204.000  182.000  164.000  152.000  140.000  132.000  t31.500  131.000  130.800 
0009  216.000  194.000  176.000  164.000  152.000  144.000  143.500  143.000  142.800 
0010  228.000  206.000  188.000  176.000  164.000  156.000  155.500  155.000  154.800 
0011  240.000  218.000  200.000  188.000  176.000  168.000  167.500  167.000  166.800 
0012  252.000  230.000  212.000  200.000  188.000  180.000  t79.5Q0  179.000  178.800 
0013  264.000  242.000  224.000  212.000  200.000  192.000  191.500  191.000  190.800 
0014  276.000  254.000  236.000  224.000  212.000  204.000  203.500  203.000  202.800 
0015  288.000  266.000  248.000  236.000  224.000  216.000  215.500  215.000  214.800 
0016  300.000  278.000  260.000  248.000  236.000  228.000  227.500  227.000  226.800 
0017  312.000  290.000  272.000  260.000  248.000  240.000  239.500  239.000  238.800 
0019  324.000  302.000  284.000  272.000  260.000  252.000  25t.500  251.000  250.300 
0019  336.000  314.000  296.000  284.000  272.000  264.000  263.500  263.000  262.800 
0020  348.000  326.000  308.000  296.000  284.000  276.000  275.500  275.000  274.800 
0021  360.000  338.000  320.000  308.000  296.000  288.000  287.500  287.000  286.800 
0022  372.000  350.000  332.000  320.000  308.000  300.000  299.500  299.000  298.900 
0023  384.000  362.000  344.000  332.000  320.000  312.000  311.500  311.000  310.900 
0024  396.000  374.000  356.000  344.000  332.000  324.000  323.500  323.000  322.800 
0025  408.000  386.000  368.000  356.000  344.000  336.000  335.500  335.000  334.800 
0026  420.000  398.000  380.000  368.000  356.000  348.000  347.500  347.000  346.800 
0027  432.000  410.000  392.000  380.000  368.000  360.000  359.500  359.000  358.900 
0028  444.000  422.000  404.000  392.000  380.000  372.000  371.500  371.000  370.800 
0029  456.000  434.000  416.000  404.000  392.000  384.000  383.500  383.000  382.800 
0030  468.000  446.000  428.000  416.000  404.000  396.000  395.500  395.000  394.800 
0031  1  10HELJUN 

0032  5.00  10.00  20.00  40.00  80.00  120.00  160.00  200.00  240.00  9 
0033  1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00  1.00  9 
0034  120.000  98.000  80.000  68.000  56.000  <>8.000  47.500  47.000  46.800 
0035  131.811  109811  91.811  79.811  67.81:  59.811  59.311  58.311  53.611 
0036  143.622  121.622  103.622  91.622  79.622  7'  622  71.122  70.622  70.422 
0037  155.433  133.433  115.433  103.433  91.433  SJ.433  82.933  82.433  32.233 
0038  167.244  145.244  127.244  115.244  103.244  95.244  94.744  94.244  94.044 
0039  179.055  157.055  139.055  127.055  115.055  107.055  106.555  106.055  105.855 
0040  190.366  168.866  150.866  138.866  126.866  118.866  118.366  117.866  117.666 
0041  202.677  180.677  162.677  150.677  138.677  130.677  130.177  129.677  129.477 
0042  214.488  192.488  174.488  162.488  150.488  142.488  141.988  141.488  141.288 
0043  226.299  204.299  186.299  174.299  162.299  154.299  153.799  153.299  153.099 
0044  238.110  216.110  198.110  186.110  174.110  166.110  165.610  165.110  164.910 
0045  249.921  227.921  209.921  197.921  185.921  177.921  177.421  176.921  176.721 
0046  261.732  239.732  221.732  209.732  197,732  :89.732  189.232  188.732  188.532 
0047  273.543  251.543  233.543  221.543  209.543  201.543  201.043  200.543  200.343 
0048  285.354  263.354  245.354  233.354  221.354  213.354  212.854  212.354  212.154 
0049  297.166  275.165  257.165  245.165  233.165  225.165  224.665  224.165  223.965 
0050  308.977  286.977  268.977  256.976  244.976  236.976  236.476  235.976  235.776 
0051  320.788  298.788  280.788  268.787  256.787  248.788  248.288  247.788  247.588 
0052  332.599  310.599  292.599  280.599  268.599  260.599  260.099  259.599  259.399 
0053  344.410  322.410  304.410  292.410  280.410  272.410  271.910  271.410  271.210 
0054  356.221  334.221  316.221  304.221  292.221  284.221  283.721  283. 221  283.021 
0055  368.032  346.032  328.032  316.032  304.032  296.032  295.532  295.032  294.332 
0056  379.843  357.843  339.843  327.843  315.343  307.843  307.343  306.843  306.643 
0057  391.654  369.654  351.654  339.654  327.654  319.654  319.154  318.654  318.454 
0058  403.465  381.465  363.465  351.465  339.465  331.465  330.965  330.465  330.265 
0059  415.276  393.276  375.276  363.276  351.276  343.276  342.776  342.276  342.076 
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0064  2  3HELIUN 

0065  5.00  10.00  20.00  40.00  30.00  120.00  160.00  200.00  240.00  9 
0066  1.00  1.00  1.00  1.00  1.00  1,00  1,00  1.00  1.00  9 


FIGURE  14.  THE  FIRST  TWO  SUBFILES  OF  MODEL  PARAMETER  INPUT  FILE  HVAL09 
THE  LINE  NUMBERS  ON  THE  LEFT  ARE  FOR  REFERENCE  AND  ARE  NOT  PART 

OF  THE  FILE 
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FIGURE  15.  CONTINUATION  OF  THE  MODEL  PARAMETER  INPUT  FILE  HVAL09  OF 
FIGURE  14 SHOWING  THE  THIRD  SUBFILE.  THE  LINE  NUMBERS  ON  THE  LEFT 
ARE  FOR  REFERENCE  AND  ARE  NOT  PART  OF  THE  FILE. 
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The  first  30  lines  of  each  sub-file  are  the  maximum  permissible  tissue 
tensions  in  units  of  FSW  (33  FSW  -  1  ATA)  in  F8.3  format.  Each  column 
represents  values  for  one  halftime  tissue  and  the  tissue  halftimes  appear  in 
the  32nd  line  in  F7.2  format  followed  by  the  number  of  tissues  in  use  in  19 
format.  If  the  number  of  tissues  in  use  in  less  than  9  then  only  the  left 
most  tissues  are  used  up  to  the  maximum  number  by  the  MK  15/16  Decompression 
Model.  Thus,  if  only  6  tissues  are  specified  only  the  first  6  columns  are 
meaningful.  The  sub- file  must  have  numbers  at  all  positions  shown  in  Fig. 
14.  If  certain  tissues  are  not  specified  the  values  in  the  corresponding 
columns  may  be  set  to  0.0  or  may  contain  any  number  since  they  will  not  be 
used.  Subroutine  RDIN7  always  reads  in  all  9  columns  of  maximum  permissible 
tissue  tensions  into  array  M,  even  if  less  than  9  tissues  will  be  used. 

The  31st  line  of  each  sub-file  contains  the  Units  Mode  and  Stop  Depth 
Increment  each  in  an  18  format  followed  by  12  alphanumeric  characters  which 
are  the  Inert  Gas  Label.  Line  33  contains  9  Saturation-Desaturation  Ratios 
in  F7.2  format  followed  again  by  the  number  of  tissues  in  19  Format. 

Subroutine  RDIN7  will  read  the  first  30  lines  of  each  sub-file  into  array 
M  then  read  the  the  next  3  lines  of  data  into  the  appropriate  variables.  The 
subroutine  then  compares  the  Units  Mode  and  Depth  Increment  in  the  31st  line 
with  the  values  specified  by  the  calling  program.  A  Units  Mode  of  "1“  means 
that  the  Stop  Depth  Increment  is  in  units  of  feet  of  seawater  (FSW)  and  a  "2" 
means  it  is  in  units  of  meters  of  seawater  (MSW)  (no  matter  what  the  Stop 
Depth  Increment  the  maximum  tissue  tensions  are  always  in  FSW).  If  a  match 
with  the  specified  Units  Mode  and  Stop  Depth  Increment  is  not  made,  the  next 
33  lines  are  read.  Subroutine  RDIN7  continues  reading  in  33  line  sub-files 
until  a  subp-file  with  the  specified  Depth  Units  and  Stop  Depth  Increments  is 
encountered.  There  is  no  limit  to  the  number  of  sub-files  which  may  be 
contained  in  the  MPIF,  however,  if  no  match  of  Units  Mode  or  Stop  Depth 
Increment  is  made  by  the  time  the  end  of  the  file  is  encountered,  an  error 
will  occur  and  the  program  will  stop. 

The  MK  15/16  Decompression  Model  MPIFs  each  contain  3  sub-files.  The 
first  is  for  Stop  Depth  Increments  of  10  fSW,  the  second  for  Stop  Depth 
Increments  of  3  MSW  and  the  third  in  increments  of  5  MSW.  Tissue  halftimes, 
the  number  of  tissues.  Saturation  Desaturation  Ratios  and  the  Inert  Gas  Label 
are  identical  for  all  3  sub-files.  The  purpose  of  having  3  sub-files  was  to 
conveniently  print  out  tables  in  either  Imperial  or  Metric  Units  once  an 
algorithm  has  been  developed.  The  Inert  Gas  Label  is  used  to  label  tables 
and  profiles  and  indicates  for  what  inert  gas  or  combination  of  inert  gases 
the  maximum  tissue  tension  values  were  developed. 

The  MPIF  could  be  generated  by  a  text  editor  but  in  the  case  of  the  MK 
15/16  Decompression  Model  a  program  was  used  to  generate  these  files.  This 
program  will  be  presented  later. 
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Pile  Read  In  Procedure 
(Lines  141  -  202) 


In  lines  145  and  146  Che  value  of  IMODE  is  established  depending  on 
whether  or  not  a  metric  stop  depth  increment  is  desired.  The  Stop  Depth 
Increment  desired  by  the  calling  program  is  lntegerlzed  as  IDINC  in  line  147. 

In  line  153-155  the  desired  file  (IFILE)  is  opened.  If  an  error  occurs 
IERS  returns  as  a  negative  number  then  Subroutine  FMPER  prints  the  error 
message  and  the  subroutine  causes  an  immediate  halt.  If  Subroutine  FMPER  is 
not  used  Subroutine  RDIN7  will  function  as  described  but  no  error  messages 
will  be  printed. 

The  DO  loop  beginning  at  Statement  175  (line  161)  reads  in  the  first  30 
rows  of  the  MPIF  into  array  M.  In  lines  170-184  the  Depth  Units  Mode,  Stop 
Depth  Increment,  Inert  Gas  Label,  tissue  halftimes,  number  of  tissues  and  the 
Saturation-Desaturatlon  Ratios  are  read  in.  In  lines  190  and  191  control  is 
transferred  back  to  Statement  175  (line  161)  if  a  match  is  not  made  between 
Che  Specified  Depth  Units  Mode  and  Stop  Depth  Increments  and  the  values 
actually  read  in. 

Once  a  match  is  made  the  input  file  is  closed  in  line  195  and  if  no 
printout  is  desired  Chen  the  subroutine  is  exited  at  line  201. 


Model  Parameter  Printout  Procedure 
(Lines  214  -  238) 


This  procedure  prints  out  the  values  of  IFILE,  IGAS,  arrays  HLFTM,  SDR, 
and  M  and  the  values  in  Common  Block  BLDVL  in  the  format  shown  in  Fig.  16. 
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a:  37  Ml*  SUN..  10  JAN..  1 962  TBLP7 
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FIGURE  16.  HVAL09  ASCENT  CRITERIA  AS  PRINTED  OUT  BY  SUBROUTINE  RDIN7. 
THE  VALUES  IN  COMMON  BLOCK  BLDVL  ARE  ALSO  PRINTED  OUT 

BY  THE  SUBROUTINE. 
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PART  3 


ASCENT  CRITERIA 


INTRODUCTION 


The  MR  15/16  Decoapression  Model  described  in  Part  2  of  this  report  is 
the  algorithm  for  computing  decoapression  tables.  However,  the  decoapression 
profiles  may  be  varied  by  either  changing  the  initialization  values  in 
Subroutine  BLOC 7  or  by  changing  the  ascent  criteria  in  the  Model  Parameter 
Input  File.  As  discussed  during  the  description  of  Subroutine  RDIN7,  the 
Model  Parameter  Input  File  contains  the  ascent  criteria  (Maximum  Permissible 
Tissue  Tensions  froa  the  surface  down  to  30  stop  depth  increments),  the  units 
and  magnitude  of  the  Stop  Depth  Increment,  an  Inert  Gas  Label,  up  to  nine 
tissue  halftimes,  the  number  of  tissues  and  up  to  nine  Saturatlon- 
Desaturation  Ratios.  Several  different  methods  were  used  to  coapute  the 
ascent  criteria  during  the  testing  of  the  MK  15/16  Decoapression  Model. 
Program  MVALU  was  used  to  generate  the  Model  Parameter  Input  File  containing 
the  ascent  criteria  and  Subroutine  MCOMP  is  used  by  Program  MV ALU  to  actually 
compute  the  ascent  criteria.  Listings  for  Program  MVALU  and  the  three 
versions  of  Subroutine  MCOMP  used  so  far  are  given  in  Annex  C.  Version  1.0 
of  Subroutine  MCOMP  was  used  to  generate  the  ascent  criteria  used  in  the 
current  version  of  the  Nitrogen/Oxygen  and  Helium/Oxygen  Decoapression 
Tables.  Version  2.0  was  used  to  generate  the  ascent  criteria  in  MVAL  1,  2 
and  3  and  Version  2.1  to  generate  the  ascent  criteria  in  MVAL5.  MVAL  1,  2,  3 
and  5  were  used  to  develop  the  first  set  of  constant  0.7  ATA  PO2  in  nitrogen 
decoapression  schedules  as  previously  reported  (1). 

Program  MVALU 

This  program  allows  creation  of  a  new  Model  Parameter  Input  File, 
modification  of  existing  files  or  listing  of  existing  files.  A  listing  of 
the  program  is  found  in  Annex  C-l.  Figures  14  and  15  show  the  file  format  as 
it  appears  in  mass  storage.  Three  3 3- line  subfiles  are  expected  but  the 
program  is  capable  of  listing  files  containing  only  a  single  subfile  as  some 
of  the  early  Model  Parameter  Input  Files  did.  Both  the  input  and  output  of 
files  in  Program  MVALU  is  to  a  disk  file. 

Program  MVALU  uses  Subroutine  FMPER  to  print  out  errors  which  may  occur 
during  file  manipulation.  A  listing  of  this  subroutine  is  given  in  Annex  D 
for  completeness  and  it  will  not  be  discussed  further.  Subroutine  MCOMP 
which  actually  coaputes  the  ascent  criteria  will  be  discussed  later.  All 
other  subroutines  used  by  Program  MVALU  are  Hewlett  Packard  RTE  IV-B 
Operating  System  Subroutines  and  will  not  be  discussed  here.  Their  functions 
are  only  briefly  described  in  the  progrsm  listing. 


Initialization  and  Option  Select  Procedure 
(Lines  145  -  175) 


In  lines  148-152  the  device  number  of  the  terminal  and  line  printer  are 
established.  Statement  40  (line  147)  prints  out  a  message  asking  for  the 
desired  option.  Legal  responses  are  "1”,  "2",  or  "6”.  Any  other  response 
will  cause  control  to  go  back  to  Statement  40.  Unless  an  error  occurs,  there 
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***** 


are  only  two  ways  to  stop  the  program.  That  Is  by  specifying  option  6  at 
line  159  or  171.  All  normal  exits  from  the  program  are  from  these  two 
statements.  Option  1  will  produce  only  a  listing  of  an  existing  file.  If 
this  option  is  selected  control  goes  to  Statement  50  (line  194)  to  get  the 
file  name  and  then  Statement  53  (line  202)  transfers  control  to  the  Printout 
Procedure  beginning  at  line  465.  Option  2  causes  control  to  drop  through  Co 
Statement  45  (line  168)  where  selection  of  one  of  three  '‘Create’’  options  is 
requested.  If  option  "6"  is  selected,  the  program  stops. 

At  line  168,  a  message  is  written  to  the  terminal  asking  for  one  of  4 
"Create"  options.  If  one  of  the  legal  responses  "3",  "4",  "5"  or  "6"  is  not 
selected,  control  goes  back  to  Statement  45  where  another  option  selection  is 
requested.  Option  3  will  cause  a  new  file  to  be  created  so  no  input  file 
name  is  needed  and  line  172  transfers  control  to  Statement  55  (line  211)  to 
get  an  output  file  name.  Option  4  will  modify  an  existing  file  so  the  input 
and  output  file  will  be  the  same.  Option  5  will  need  both  an  input  file  name 
and  an  output  file  name  because  it  will  use  existing  values  in  one  file  to 
create  another.  Both  Options  4  and  5  cause  control  to  go  to  Statement  50  to 
get  the  input  file  name.  Note  that  Option  1  also  ends  up  at  Statement  50 
from  line  160. 

Lines  194-198  ask  for  an  input  file  name.  Simply  hitting  a  return  will 
cause  control  to  go  back  to  Statement  40  if  Option  1  had  been  initially 
selected  and  to  Statement  45  if  Option  4  or  5  had  been  selected  to  get  a  new 
option.  Once  an  input  file  has  been  specified,  line  202  will  transfer 
control  directly  to  the  Printout  Procedure  if  Option  1  had  been  selected. 
Option  4  requires  no  output  file  name  since  an  existing  file  is  being 
modified  so  line  206  causes  the  statements  for  getting  the  output  file  name 
to  be  skipped. 

Lines  211-220  get  the  output  file  name  and  creates  the  output  file  for 
Options  3  and  5.  If  no  file  name  is  specified  then  control  goes  back  to 
Statement  45  (line  168)  to  select  a  new  option.  If  an  error  is  encountered 
in  line  218,  IERR  will  be  returned  as  a  negative  number  and  after  the  error 
message  is  printed  by  Subroutine  FMPER,  control  will  go  back  to  Statement  55 
(line  211)  to  get  another  output  file  name. 

If  Option  3  has  been  selected  then  lines  230-269  which  read  in  data  from 
an  input  file  are  skipped.  Option  3  will  start  out  with  the  variables  set  to 
the  values  in  the  DATA  Statements  at  lines  92  and  96. 

Options  4  and  5  will  need  to  have  the  input  file  read  in  first. 
Statement  58  (line  230)  opens  the  input  file  and  if  an  error  is  encountered, 
control  will  go  back  to  Statement  50  (line  194)  to  get  a  new  input  file  name. 
Lines  237-240  read  in  the  first  row  of  the  file,  which  are  the  surfacing 
Maximum  Permissible  Tissue  Tensions  (Surfacing  Tensions),  into  array  STNSN. 
Nine  values  are  read,  even  if  they  are  not  all  used.  Lines  245-249  position 
the  file  to  the  31st  record  to  get  the  Units  Mode,  Stop  Depth  Increment  and 
Inert  Gas  Label.  Lines  254-257  read  the  tissue  halftimes  and  number  of 
tissues  from  the  32nd  record  and  lines  262-265  read  the  Saturation- 
Desaturation  Ratios  from  the  33rd  record.  Line  269  closes  the  input  file. 
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Statement  65  (line  273)  displays  the  data  read  in  from  the  file  on  the 
terminal  and  if  this  is  not  what  was  wanted,  typing  any  response  but  "YES'*  at 
line  278  will  cause  control  to  go  back  to  Statement  45  (line  168)  to  select  a 
new  option.  If  "YES"  is  entered  then  the  program  proceeds  to  the  Variable 
Change  Procedure. 


Variable  Change  Procedure 
(Lines  295  -  335) 


As  currently  written  only  the  1st,  and  31st-33rd  lines  of  the  first 
subfile  of  the  Model  Parameter  Input  File  are  read  in.  All 
permissible  tissue  tensions  at  depths  below  the  surface  are  currently 
computed  using  only  the  first  line  of  the  first  subfile  as  starting  values. 

Lines  298-327  allow  changes  to  be  made  to  the  Inert  Gas  Label,  Number  of 
Tissues,  Surfacing  Tensions  Tissue  Halftime  Values,  Saturation-Desaturatlon 
Ratios  and  the  Depth  Multiplier  (MULTP).  (MULTP  is  used  only  by  Version  1  of 
Subroutine  MCOMP).  Hitting  a  carriage  return  after  any  input  is  requested 
will  retain  the  values  originally  displayed.  In  line  333  the  user  is  asked 
if  he  is  done.  If  more  changes  are  desired  or  if  the  changes  already  made 
want  to  be  reviewed,  entering  any  response  other  than  "YES"  will  transfer 
control  back  to  Statement  70  (line  298).  Once  all  changes  are  finished, 
entering  a  "YES"  at  line  334  will  cause  the  program  to  drop  through  to 
compute  the  maximum  permissible  tissue  tensions. 


Maximum  Permissible  Tissue  Tension  Computation  Procedure 

(Lines  348  -  376) 


The  DO  Loop  beginning  at  line  351  will  compute  3  sets  of  ascent  criteria, 
in  10  FSU,  3  MSV  and  5  MSW  Increments.  The  Surfacing  Tensions  are  put  in  the 
first  row  of  the  Model  Parameter  Input  File  Array  (MTABLE)  in  lines  352  and 
353  and  the  proper  value  of  the  Stop  Depth  Increment  and  ATMD  established  in 
lines  359-375.  The  tissue  tensions  in  array  MTABLE  are  always  in  units  of 
FSW  but  the  Stop  Depth  Increments  may  be  in  FSW  or  MSW.  ATMD  has  a  value  of 
either  1.0  or  3.28084  and  when  multiplied  by  INCR  will  always  give  a  depth 
increment  in  FSW.  Subroutine  MCOMP  is  called  to  actually  compute  the  table 
of  maximum  tissue  tensions. 


File  Output  Procedure 
(Lines  388  -  454) 


If  option  4  has  been  selected  an  existing  file  will  be  replaced  with  a 
new  one.  In  lines  392  to  396  the  old  file  is  eliminated  by  Subroutine  PURGE 
and  then  a  new  file  with  the  same  name  created.  The  input  and  output  file 
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names  are  sec  equal  to  each  ocher  in  lines  402  and  403  and  Che  oucpuc  file 
opened  in  line  402.  If  an  error  occurs  control  is  transferred  back  to 
Statement  45  (line  168)  where  a  new  option  may  be  specified. 

Lines  412-453  write  out  the  three  subfiles  contained  in  MTABLE  to  the 
output  file  in  the  format  shown  in  Figures  14  and  15.  Line  465  asks  if  a 
printout  of  the  new  files  is  wanted.  If  a  "YES'*  is  entered  the  file  is 
rewound  to  the  first  record  and  control  goes  to  Statement  175  (line  496)  to 
print  the  file  out.  Any  other  response  causes  control  to  pass  to  Statement 
165  (line  470)  where  Che  file  is  closed  and  control  transferred  back  to  the 
beginning  of  the  program  at  Statement  40  (line  157)  to  select  a  new  option. 


Printout  Procedure 
(Lines  479  -  531) 

Option  1  enters  this  procedure  at  Statement  170  (line  484)  while  all 
other  options  enter  the  procedure  at  Statement  175  (line  496).  Lines  484-488 
open  the  Option  1  file  for  input  and  sets  the  input  file  name  equal  to  the 
output  file  name.  An  error  on  opening  the  file  passes  control  to  Statement 
50  (line  194)  to  get  a  new  input  file  name.  Lines  496-530  read  in  one 
subfile  at  a  time  from  the  specified  input  file  and  prints  each  one  out 
before  reading  the  next  one.  This  was  done  this  way  because  some  of  the 
earlier  Model  Parameter  Input  Files  had  only  one  subfile  which  could  then  be 
read  and  printed  before  an  end  of  file  is  encounted  and  the  program  stops. 
Since  only  a  very  few  files  had  only  one  subfile  it  was  not  deemed  necessary 
to  detect  and  trap  the  error  but  just  let  the  program  stop. 

Table  2  shows  the  format  for  the  printout  of  the  first  subfile  of  the 
Model  Parameter  Input  File  MVALO.  The  format  is  identical  to  that  shown  in 
Fig.  16  which  was  output  by  MK  15/16  Decompression  Model  Subroutine  RDIN7 
with  the  exception  that  the  Blood  Parameters  which  are  not  part  of  the  Model 
Parameter  Input  File  are  not  printed  by  Progam  MV ALU. 


Subroutine  MCOMP 


There  are  3  versions  of  this  subroutine.  Version  1.0  was  used  to  compute 
the  ascent  criteria  for  the  current  version  of  the  Nitrogen/Oxygen  Decompres¬ 
sion  Tables  and  all  versions  of  the  Helium/ Oxygen  Decompression  Tables. 
These  tables  will  be  described  in  forthcoming  reports.  Version  2.0  and  2.1 
were  used  to  compute  the  ascent  criteria  used  for  the  Constant  0.7  ATA 
Oxygen  Partial  Pressure  in  Nitrogen  Decompression  Tables  which  have  already 
been  presented  (1). 


Version  1.0 
(Annex  C-2) 

This  version  uses  the  first  row  of  the  Maximum  Permissible  Tissue  Tension 
(Surfacing  Tensions)  as  starting  values  and  increments  them  linearly  with 
increasing  depth.  The  factor  MULTP  determines  the  rate  of  increase.  The 
Surfacing  Tensions  and  MULTP  must  be  specified.  ATMD  will  convert  values  of 
INCH  given  in  meters  to  units  of  feet. 
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TABLE  2 


TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 
<  MVALO  -  NITROGEN  > 


TISSUE  HALF-TIMES 


DEPTH 

3  MIN 

1  0 

MIX 

20  MIN 

40 

MIN 

80 

MIN 

120 

MIN 

1 . 00  SDR 

1  .00 

SDR 

1 .00  SDR 

1  .00 

SDR 

1  .00 

SDR 

1  .  00 

SDR 

to 

FSU 

1  04 . 000 

88 

.  000 

72.000 

33 

,  000 

32. 

,  000 

St  , 

.  000 

20 

FSU 

123.69S 

107 

.223 

88.514 

71 

,921 

64 

,738 

63, 

,537 

30 

FSU 

1 48 . 399 

127 

.312 

103.404 

33. 

,920 

77 

463 

76, 

049 

40 

FSU 

172.226 

147 

.426 

122.237 

99, 

,812 

90. 

071 

38. 

,439 

30 

FSU 

193.442 

167 

.413 

138.933 

113, 

,563 

102, 

344 

too, 

.696 

bO 

FSU 

218.490 

187 

.241 

133.485 

127, 

,  190 

114. 

890 

1  12, 

,328 

70 

FSU 

241 .357 

206 

.906 

171  .991 

140 

.687 

127 

,119 

124 

,345 

SO 

FSU 

264 . 049 

226 

.413 

188.162 

154, 

,  068 

139 

,242 

136 

,737 

90 

FSU 

286 . 374 

243 

.778 

204.308 

167 

.343 

131 

.267 

148 

,372 

1  00 

FSU 

303.942 

265 

.  003 

220.336 

180 

.32  4 

163 

,202 

160 

,299 

1  1  0 

FSU 

331.163 

284 

.  100 

236.237 

193, 

.606 

175. 

,  053 

171 

,943 

120 

FSU 

333.246 

303 

.  079 

232.076 

206, 

,608 

186. 

831 

183. 

316 

130 

FSU 

375.200 

321 

.944 

267.301 

219, 

.532 

198, 

536 

195 

016 

140 

FSU 

397.033 

340 

.703 

283.438 

232 

.383 

210, 

174 

206 

431 

150 

FSU 

418.732 

359 

.367 

299.993 

245, 

,  163 

221  , 

,730 

217 

,323 

160 

FSU 

440.363 

377 

•  9’S 

314.469 

237 

.883 

233, 

,267 

229. 

,  141 

170 

FSU 

46 t .372 

396 

.413 

329.371 

270, 

,339 

244 

.729 

240 

.402 

190 

FSU 

433.284 

414 

.  816 

343.204 

283. 

138 

256. 

139 

231  . 

,612 

190 

FSU 

304.605 

433 

.  133 

360.470 

295, 

683 

267. 

499 

262 

,773 

200 

FSU 

323.838 

431 

.378 

373.674 

308. 

,  173 

278. 

81  1 

273, 

,888 

21  0 

FSU 

546 . 987 

469 

.349 

390.817 

320. 

,618 

290. 

,  079 

284, 

,939 

220 

FSU 

368 . 057 

487 

.632 

403.903 

333. 

013 

301  . 

303 

295. 

.987 

230 

FSU 

539.051 

503 

.689 

420.934 

343, 

,363 

312, 

,487 

306, 

,973 

240 

FSU 

609.971 

323 

.663 

433.912 

337. 

.669 

323 

.631 

317. 

.924 

230 

FSU 

630.320 

341 

.376 

430.839 

369, 

,934 

334 

737 

328 

.837 

26  0 

FSW 

631 .602 

339 

,431 

463.718 

382. 

lS9 

343. 

,808 

339, 

.713 

270 

FSU 

672.319 

377 

.230 

480.330 

394, 

343 

336. 

843 

350, 

,335 

280 

FSU 

692 . 973 

394 

.973 

493 . 337 

406. 

,495 

367. 

.844 

361 

.364 

290 

FSU 

713.367 

612 

.668 

310.081 

418 

.608 

378. 

,313 

372, 

,  141 

300 

FSU 

734.101 

630 

.310 

324 . 782 

430 

,687 

389, 

73! 

382, 

.888 
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Version  2.0 
(Annex  C-3) 


This  version  of  Subroutine  MCOMP  was  used  to  compute  the  ascent  criteria 
in  the  Model  Parameter  Input  Files  MVAL1 ,  MVAL2 ,  and  MVAL3  of  reference  (1). 
The  relationship  used  to  compute  the  maximum  tensions  shown  in  line  10  of 
Annex  C-3  was  originally  presented  by  Dwyer  in  reference  (2).  There  is  one 
slight  difference,  however,  in  that  Dwyer's  calculation  assumed  100Z  Nitro¬ 
gen.  The  maximum  tensions  thus  computed  were  later  multiplied  by  0.79  by 
Workman  (3)  to  get  his  table  of  M-values  (Appendix  E  of  reference  (3))  for 
computing  air  tables.  The  relationship  presented  here  does  this  in  one  step. 
Table  2  shows  the  Table  of  Maximum  Permissible  Tissue  Tensions  computed  by 
this  version  of  MCOMP  using  the  Surfacing  Tensions  as  presented  in  Appendix  E 
of  reference  (3).  The  agreement  between  Table  2  and  Appendix  E  of  reference 
(3)  is  quite  good,  the  small  differences  probably  being  due  to  rounding 
errors  done  during  the  computation  of  the  values  in  Appendix  E  of  reference 
(3). 


Program  Description 


Version  2.0  of  Subroutine  MCOMP  uses  a  Nevton-Raphson  iteration  to  solve 
the  equation  given  in  line  10  for  M  and  by  setting  IPRNT  equal  to  "  1“  in 
line  88  all  iteration  variables  will  be  printed.  In  this  case,  IPRNT  was  set 
to  "0"  so  iteration  values  will  not  be  printed  unless  convergence  does  not 
occur  in  10  iterations.  The  nitrogen  fraction  is  set  to  .79  in  line  92.  The 
DO  Loops  beginning  at  lines  97  and  98  will  compute  maximum  tensions  for  9 
compartments  at  30  depth  Increments.  The  surfacing  ratio  is  computed  in  line 
107.  The  Newton-Raph8on  iteration  from  lines  114-174  is  basically  the  same 
as  discussed  with  Subroutine  UPDT7  so  its  function  will  not  be  covered  in 
detail  here.  T  represents  the  trial  maximum  tensions  and  the  initial 
estimate  given  in  line  123  is  simply  the  depth  ratio  of  the  previous  maximum 
tension  times  the  new  nitrogen  tension.  The  depth  ratio  R  is  computed  at 
Statement  230  (line  124)  which  is  where  the  iteration  reenters  with  its 
successive  estimates  of  T.  The  Newton-Raphson  null  variable  Y  is  the 
difference  between  the  right  and  left  sides  of  the  equation  given  in  line  10 
and  DY  is  its  first  derivitive.  After  the  iteration  has  finished,  the 
appropriate  element  in  MTABLE  is  set  to  the  final  value  of  T  in  line  174. 


Version  2.1 
(Annex  C-4) 


This  version  of  MCOMP  was  used  to  compute  the  MVAL5  ascent  criteria  and 
the  rationale  behind  the  computation  is  given  in  reference  (1).  The 
computation  is  straight-forward,  the  Maximum  Permissible  Tissue  Tension  being 
given  in  Annex  C-4  by  line  37  for  depths  less  than  or  equal  to  80  FSW  and  by 
line  58  for  depths  greater  than  80  FSW. 
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Ascent  Criteria 


Printouts  of  the  ascent  criteria  for  all  the  Model  Parameter  Input  Files 
actually  tested  during  development  of  the  MK  15/16  Decompression  Model  are 
given  in  Annexes  C-5,  C-6  and  C-7.  The  files  used  for  schedule  development 
using  nitrogen  as  a  diluent  are  MVAL  i,  2,  and  3  (Annex  C-6)  and  MVAL  5,  83, 
92  and  94  (Annex  C-7)  which  were  all  used  with  the  E-E  Version  (Version  2)  of 
Subroutines  UPDT7  and  STIM7,  and  WAL09 ,  14  and  18  (Annex  C-5)  which  were 
used  with  the  E-L  Version  (Version  1)  of  these  subroutines.  All  decompres¬ 
sion  schedules  computed  using  the  E-E  Version  of  the  Model  had  all  values  in 
Common  Block  BLDVL  of  Subroutine  BL0C7  set  to  0.0.  The  tables  computed  using 
the  E-L  Version  used  the  values  in  Subroutine  BL0C7  as  presented  in  Annex 
B-l.  MVAL  1,  2  and  3  were  computed  by  Program  MV ALU  using  Version  2.0  of 
Subroutine  MCOMP.  MVAL5  was  computed  using  Version  2.1  of  Subroutine  MCOMP. 
MVAL  83,  92,  and  97  were  constructed  by  modifying  Individual  values  in  MVAL5 
and  cannot  be  directly  computed  from  any  set  of  initial  assumptions. 

All  HVAL  files  (Annex  C-5)  and  WAL  09,  14  and  18  were  created  using 
Version  1.0  of  Subroutine  MCOMP.  It  should  be  noted  that  some  of  these  files 
have  the  same  Maximum  Permissible  Tissue  Tensions  and  differ  only  in  the 
number  of  tissues  used  and/or  the  Saturation-Desaturation  Ratios. 


Decompression  Tables 


To  date,  a  complete  set  of  Decompression  Tables  using  MVAL5  have  been 
published  in  reference  (1).  A  complete  set  of  tables  using  WAL18  have  been 
published  in  Chapter  16  of  reference  (4)  which  supercedes  those  computed 
usl.tjg  MVAL5  in  reference  (1).  Reports  describing  tables  computed  with  other 
set?  of  ascent  criteria  are  forthcoming. 

While  one  can  compute  any  variety  of  tables  using  the  computer  programs 
described  in  this  report,  it  must  be  again  emphasized  that  the  only 
conditions  under  which  the  ME  15/16  Decompression  Model  has  been  tested  to 
date  is  using  a  constant  PO2  of  0.7  ATA  in  either  a  Nitrogen  or  Helium 
diluent.  The  E-L  Model  at  present  will  not  handle  large  changes  in  inspired 
oxygen  tension  which  makes  it  unsuitable  for  computing  air  tables  at  present 
although  this  shortcoming  is  being  worked  out. 
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ANNEX  A 

MODEL  INDEPENDENT 
INPUT-OUTPUT 
PROGRAM  LISTINGS 


ANNEX  A-l 

PROGRAM  DMDB7 
LISTING 


iGr-Ce 

7  T 

=00004  IS  ON 

CR00012'  USING  00078  BL^S  R*000u 

00  01 

FT 

N4 

0  C>02 

PROGRAM 

DMDe7< 

3,39  5.  26  SEPT  32  VER  1  .  0 

0  0  03 

C 

0  004 

c 

0  0  05 

c 

rlGDEL  INDEPENDENT  DECOMPRESSION  PROFILE  CENEP ATOR . 

0  0  0c 

c 

DECOMPRE 

SSI  CN 

MODEL  WRITTEN  IN  3  SUBROUTINES 

uuG? 

c 

0  00*3 

z 

ACCEPTS 

PROFILE  COORDINATE  INPUTS  FROM  A  PROFILE  COORDINATE  INPUT 

0003 

c 

FILE  AND 

PRINTS  OUT  A  DECOMPRESSION  PROFILE  ON  THE  LINE  PRINTER. 

0  0 1  j 

c 

?  1 

■“ 

8  88  8888  88  83 89  88**8  99  383338  *>338  88  33  *38  88 

0  0 1  z 

• 

9 

tf 

0013 

* 

d 

WRITTEN  BY  9 

0  014 

c 

9 

9 

•)  o  ♦  f 

c 

9 

CDR  EOUARO  D.  THALMANN  (MC>  USN  9 

0  01  b 

c 

9 

9 

ooi  ? 

c 

9 

9 

0  013 

c 

9 

U.3.  NAVY  EXPERIMENTAL  DIVINC  9 

0  013 

c 

9 

UNIT  9 

0  c 

c 

9 

PANAMA  CITY, FLORIDA  3240?  9 

0  021 

c 

9 

9 

0  021 

c 

999 99 99 09 999999999999 9999 99 99 99999990 

0  023 

c 

0  024 

0  025 

c 

0  023 

- 

*  variables  * 

0023 

c 

r*»  fl  2  *? 

I 

VARIABLES  ASSOCIATED  WITH  HEULET’  =ACKAPD  RTE  IV-3 

•3070 

7 

ripc^eTTkjQ  evercw 

0  031 

c 

j  032 

c 

ATA 

-ATA-  LABEL 

0  033 

c 

3TMTIM 

DESCENT  TIME  INCLUDED  IN  ’’TIME"'1 

•0  034 

c 

CDEPTH 

CURRENT  DEPTH  ( FSU  OR  MSW > 

0  035 

c 

CF 

METRIC  CONVERSION  FACTOR 

0  036 

c 

CFSTOP 

CALCULATE  FIRST  STOPR 

0037 

c 

CNTR 

POSITION  IN  MODEL  PARAMETER  FILE 

0033 

c 

CP02 

CONSTANT  PARTIAL  PRESSURE  02? 

0  033 

c 

C3TIME 

COMPUTE  STOP  TINES'* 

j  04  0 

c 

D 

PROFILE  DEPTH  ARRAY 

0  041 

w 

•DAYTIM 

DATE-TIME  ARRAY 

0  04  2 

c 

DC 

PROFILE  SUB-SEGMENT  DEPTH  CHANCE  <FSU  OR  MSU  ) 

0043 

c 

DEPTH 

NEXT  DEPTH  (FSW  OR  MSW 1 

0044 

c 

DFS 

DEPTH  OF  FIRST  STOP  <  F3W  OR  MSW - 

0045 

c 

DINC 

STOP  DEPTH  INCREMENTS  < FSW  OR  MSU 3 

004(5 

c 

DONE 

OONE  ENTERING  CURRENT  PROFILE? 

0047 

c 

FOEPTH 

FINAL  DEPTH  FOR  ASCENTS  <FSW  OR  MSU) 

0  048 

c 

FN2 

CURRENT  INERT  GAS  FRACTION  IN  USE 

0048 

c 

GAS 

PROFILE  INERT  GAS  TENSION  ARRAY 

3  05  0 

2 

08SLBL 

LABELS  GAS  TENSION  AS  "X”  OR  “ATA" 

0051 

c 

CASTiN 

GAS  TENSION  VALUE  ARRAY 

0  052 

c 

IGAS 

INERT  GAS<  ES  )  NAME< S  ) 

0053 

c 

*IPAR 

LOGICAL  UNIT  NUMBER  ARRAY 

0  054 

c 

IPRT 

PRINT  MODEL  PARAMETER  INPUT  FILE? 

0055 

c 

«ISES 

DUMMY  VARIABLE 

0056 

c 

K 

CURRENT  POSITION  IN  DIVE  PROFILE  ARRAYS 

0  05? 

c 

LB 

PROFILE  COORDINATE  INPUT  FILE  DEVICE  NUMBER 

0  05% 

7 

LP 

DEVICE  NUMBER  FOR  LINE  PRINTER 

rt  1  - 1 


L  STOP 
LU 

-ETRIC 

10  RE 

mf  IF 

NGAS 

nCDLIM 

MCOSTF 

NOPRNT 

optn 

PERCNT 

POC 
PcO  I D 

R 

PaT6 

TC 

TIME 

UFEET 

’JMETER 

UNITS 

ZT 


LhST  STOP  BEFORE  SURFACING7 

DEVICE  NUMBER  FOR  TERMINAL 

DEPTH  AND  RATE  INPUTS  IN  METERS7 

ANOTHER  DIVE  PROFILE  TO  FOLLOW7 

MODEL  PARAMETER  INPUT  FILENAME 

CAS  TENSION  ARRAY  SUBSCRIPT 

COMPUTE  NO-DECONPRESSION  LIMIT7 

DON'T  COMPUTE  DECOMPERSS ION  STOPS  7 

MODEL  PROFILE  PARAMETER  OUTPUT  NOT  WANTED7 

OPTION  ARRAY 

*JS*  LABEL 

CURRENT  OKYCEN  PaRTIAL  PRESSURE  (hTh! 

PROFILE  IDENTIFICATION  LABEL 
DIVE  PROFILE  RATE  ARRAY 

RATE  OF  CURRENT  PROFILE  SUB-SEGMENT  t FSW  OR  MSW/MIN) 
ELAPSED  TIME  DIVE  PROFILE  ARRAY 

tine  CHANCE  uF  CURRENT  profile  SUB-SECMENT  (MINI' 

TIME  AT  CURRENT  DEPTH  (MIN) 

OUTPUT  LABEL  FOR  PROFILES  IN  FEET 
OUTPUT  LABEL  FOR  PROFILES  IN  METERS 
DEPTH  UNITS  SWITCH 
DIVE  PROFILE  EERO  TIME  ARRAY 


*i«  mm**  mm  ******  *<■ 

*  SUBROUTINES  REQUIRED  • 


DECOMPRESSION  MODEL 


3  OP  s  •: 

:■  o  -  c 
50  ?s  •; 
3036  C 
:  o=»r  c 

1036  C 

j  c 

St  3  0  C 
j  1  0  !  C 

j  *  0  tL 

1U3  c 

■I '  34  C 
5105  C 
3 1  06  C 
0  t  ■')  7  C 
31*1?  C 
J1  C 
1 1  1  g  C 
31  '  •  C 
Old  C 
3113  C* 
31*4  C 
j!  15  C 

3116  C 

3117  C 
'J  1  ’  i  C 


8L0C7  INITIALIZES  OATA  IN  COMMON  BLOCK 
UPDT7  UPDATES  MODEL  OVER  ONE  PROFILE  SUB-SECMENT 
FBSP7  COMPUTES  DEPTH  OF  FIRST  STOP 
3TIM7  COMPUTES  STOP  TIME  AT  A  GIVEN  DEPTH 
NLIM7  COMPUTES  NO  DECOMPRESSION  TIME 
RCR07  RECORDS  OR  OUTPUTS  MODEL  PARAMETERS 
RDIN7  READS  IN  MODEL  PARAMETER  INPUT  FILE 
INIT7  INITIALIZES  MODEL 


PROGRAM 

*  HEWLETT  PACKARD  RTE  IV-fl  OPERATING  SYSTEM  SUBROUTINES 
AND  FUNCTIONS 

*FT I  ME  CETS  DATE  AND  TIME  FROM  COMPUTER 

*PNPOR  PASSES  LOGICAL  UNIT  «  OF  TERMINAL  TO  PROGRAM 

•LOCLU  LOGICAL  UNIT  •  OF  TERMINAL 

♦LUTRU  LOGICAL  UNIT  #  OF  TERMINAL  ON  ERROR 

MODEL  INPUT  VARIABLES 

THESE  ARE  THE  ONLY  VARIABLES  SENT  TO  THE  MODEL  SUBROUTINES. 

THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 


A 1  -2 


COfWON/HDATA,'  TC ,  DC  ,  CDEPTH  ,  RATE  . CPG2 , FH2 , P02, DINC  #  CF 


‘  9 
i  0 
1 J 


24 

25 

26 


13 

29 

20 


33 

34 

"?  c 

36 

37 

~S 

o? 

40 

4  t 

42 

43 

44 

43 

46 

47 

45 

4*5* 

;  u 

31 


33 

34 
53 
56 


5? 
6  0 
61 


63 

64 

o5 

66 

67 

68 
6  9 

70 

71 

72 

73 

74 

75 

76 

77 

78 


lCCICAL  CP02,CFST0P.CSTIME.00HE,LST0P.  METR ’ C , NODSTF , NODL I M , BTMTIM 
0CU8LE  PRECISION  UFEET , UMETER 

INTEGER  CNTR,0PTN<4). UNITS. PRO ID< 20 > . DAYT IMC  13) 

REAL  ZT<  1  00  ),  T<  t  00  >.D<  1  00  >.  R<  t  00  >,CAS<  100),  IGASt  3  ) ,  CASLBL<  100) 
DIMENSION  GA3T3N<  2,4),  IPAR<  3  ),MPIF':  3  ) 

DATA  ATA,  IOAS,  IPRT , LP , L874H  ATA,3*4H  ,0,6,97 
DATA  PERCNT, UFEET, UNETER74H  %  , 6HFEET  , 6HMETERS7 


1  F0RMAT<  *  1  “ 1 3A2  ) 

'  F0RP1PT(  FI  1.2,F14,2,I10,I7,F9.2.A4) 

3  FORMATS  14 ,  *  FOOT  INCREMENT") 

3  F.jfiMAT<  14,  •  METER  INCREMENT"  > 

6  FORMAT< 4X"2ER0  TIME"3X"ELaPSED  TINE"3X"DEPTH"?X"RATE"4X"GAS" > 

9  FORMAT<7*PRINT  MODEL  INPUT  PARAMETERS  ?  < 1 -VES  2-NO)  "> 

21  FORMAT<  3A2  > 

23  FCRMMT<i0A2) 

24  FC»fiMAT<  74X,  20A27  ) 

23  FORMAT* At  , I  1 , 3A2) 

2s  FORMAT* 4X, 15A2"  DMDB7") 

41  FORMAT*  4X  ,  3 A2  ,  *<  "3A4  "  ) "  ) 

42  FORMAT* 4X"PR0CRAN  0MDB7  USING  "12"  “A1“SU  STOPS*) 


PROGRAM  INITIALIZATION  PROCEDURE 


C  GET  TIME  AND  DATE  FROM  RTE  IV-8  OPERATING  SYSTEM  INTO  “DAYTIM" . 
C 

CALL  FT  I  ME'!  DAYTIM) 

c 

C  ESTABLISH  TERMINAL  USED  FOR  PROGRAM  CONTROL. 


C 


c 


c 


c 


c 

c 

c 


Call  rhpar<iparj 

LU-IPAR* 1  ) 

IFsLU.LE.I)  LU»LUTRU<LU) 

:f*lo.le.o>  lu-loclu< ises  ) 

READ  IN  MODEL  PARAMETER  INPUT  FILENAME,  DEPTH  UNITS, AND  STOP 
DEPTH  INCREMENT  FROM  PROFILE  COORDINATE  INPUT  FILE  DEVICE  "LB". 

READ  <L8.22>  MPIF 
URITECLU, 22  )  MPIF 
READ  <  LB , *  )  UNITS, DINC 

IF  “UNITS"  NOT  1  THEN  DEPTH  INPUTS  WILL  BE  IN  METERS. 

METRIC*. FALSE. 

IF<  UNITS . NE . 1  )  METRIC*. TRUE. 

IF<  .NOT. METRIC)  NR !TE< LU , 3  )  D INC 
IF< METRIC)  WRITE* LU , 5 )  DINC 

"CF"  CONVERTS  METERS  TO  FEET  FOR  METRIC  INPUTS. 

CF-1  .  0 


A 1  -3 


I 


r 


0'7?  IF-.  METRIC  3  CF  *  1  .0/0.3  043 

0  t  3  G  C 

0131  C  ASK  IF  MODEL  PARAMETER  PRINTOUT  WANTED .  IF  IT  IS  THEN  "IPRT"  WILL 

0132  C  BE  1  AND  DATE, TIME  PAGE  HEADER  PRINTED.  RD IN?  RETURNS  GAS  LABEL 

0133  C  " I  GPS"  AFTER  READING  DATA  FROM  THE  MODEL  INPUT  PARAMETER  FILE. 

0134  C  RDIN7  WILL  PRINTOUT  MODEL  INPUT  PARAMETER  FILE  IF  “1PRT"  IS  1. 

0135  C 

3<S6  WRITEC  LU,  9  0 

013?  READv  LU , *  >  IPRT 

013?  IF< IPRT. EG, 1  3  WRI TE< LP , 26  )  OAYTIM 

0 !??  CALL  RDIN?< LU.LP.MPIF, METRIC, IGAS. IPRT > 

0  1  ?  0  C 
31  5’  C 


0 1  33 
.1 1  34 
01  35 
31  33 
3  1  3? 
3!  33 

3 1  33 

32  j 
02  01 
02  52 

02  34 
02  o5 
32'.? 
02  07 


021  0 

'j«.  i  1 


02 '3 
021  4 
0215 
0216 


021? 
022  0 
02  *i  1 


0223 

0224 

0225 

0226 

0227 

0223 

0223 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0236 


C 

0 

c 

c 

c 

c 


c 

c 

C««' 

r 

l“ 

c 

200 

C 

c 

c 


END  PROCRAM  INITIALIZATION  PROCEDURE 


*  a.  **  41*  ******** ******  ******  ********  ****************  ****** 

PROFILE  INITIALIZATION  PROCEDURE 

i*  **«*  ****  **  ******  4i*  **  ******************  ******************** 

READ  IN  profile  IDENTIFIER, 
aEAD<  LB , 23  0  PROIO 

READ  IN  INERT  GAS  FRACTIONS  AND  PARTIAL  PRESSURES  FSCM  THE 
PROFILE  COORDINATE  INPUT  DEVICE  "LB’ 


REAOvLB.*  >  <  <GASTSH< I , J 3 , 1» I , 2 3 , J* 1 , 4  3 
C 

C  INITIALIZE  LOGICAL  VARIABLES  CONTROLLING  FIRST  STOP  AND  STOP  TIME 

C  PROCEDURES.  SET  COUNTERS  TO  1. 

C 

CF3TOP-, FALSE. 

CSTIME-. FALSE. 

CHTR*t 

K=1 

C  READ  IN  INITIALIZATION  DEPTH,  FIRST  NEW  DEPTH,  AND  THE  RATE 

C  THEN  SKIP  OVER  PROFILE  COORDINATE  INPUT  AT  STATEMENT  #210. 

C 

READ*  LB , *  3  CDEPTH , DEPTH , RATE 
TlME*0. 0 
GO  TO  211 
C 

£***********************«*******************  **************************** 


c 

C  END  PROFILE  INITIALIZATION  PROCEDURE 

C 

C***«*4»***»4*«****«««***4  A************************] 

c 

c 

c ***************************************** *********< 

c 

C  PROFILE  GENERATION  AND  UPDATE  LOOP 


A I -4 


EXIT  LOOP  ONLY  UHEN  “DONE"  BECOMES  TRUE. 


0239 
0140 
014  1 
0141 
0143 
0144 
0243 
0246 
0247 
0246 
0246 
023  0 
013) 
0231 
0233 
0234 
0233 
0236 
0237 
0236 
0236 
0260 
0261 
0262 
0263 
0264 
3263 
0266 
0267 
0263 
0266 
027  0 
0271 
0272 
0273 
0274 
0273 
0276 
0277 
0273 
0279 
0230 
023 1 
0232 
0233 
0234 
0235 
0296 
0237 
0239 
0299 
0290 
0291 
0292 
0293 
0294 
0293 
0296 
0297 
0296 


C 

c 


C  READ  IN  PROFILE  SEGMENT  TIME , NEXT  DEPTH  AND  RATE  COORDINATES. 

C 

210  READ<L8, *3  TIME. DEPTH, RATE 

C 

C  CIVE  “RATE*  PROPER  SIGN. 

C 

211  RAT£»A6S<RATE> 

I F<  DEPTH  .  LT  .  CDEPTH  3  RATE— RATE 

C 

C  REAO  IN  OPTIONS  AND  GAS  TENSION  SUBSCRIPT,  INITIALIZE  OPTIONS. 
C 

READ<  LB , 25  0  OPTN< 1 3 , NGAS,  <  OPTN< 13, 1-2,4) 

NO0STP-. FALSE. 
lSTOP-4  .  FALSE . 

DONE*. FALSE. 

PTMTiMa. false, 
nodlim-. false . 
c 

C  FIRST  OPTION  MUST  ALWAYS  SPECIFY  A  GAS  TENSION.  IF  NOT  SKIP 

C  EXECUTION  OF  OPTIONS. 

C 

IF'.  GPTN<  1  3.NE.  INF  .AND.  OPTN<  I  >  .  NE .  1  HP  3  CO  TO  216 
C 

C  SET  UP  GAS  TENSIONS  SPECIFIED  BY  “OPTN< 1 3“  AND  ”NCAS“ . 

C 

IF<  GPTN< 1  ) . EG . 1  HP  3  CP02-.TRUE. 

IF<  OPTN<  1  3 .  EO  .  1 HF  '  FALSE  . 

IF< .N0T.CP023  FN2»CASTSN< 1 .NGAS) 

IF<  CP02  3  P02-GAST3N<2,NCAS) 
r 


C 

c 


214 

C 

c 

c 

216 

C 


C 

2 

C 

c 

c 

c 

c 


EXECUTE  REST  OF  OPTIONS. 


DO  214  1-2,4 
IF<  QPTN<  I  3.EQ.2HLS) 
IF<  OPTN<  I  3.E0.2HTX) 
IF<  GPTN<  I  > .  EG  . 2HND  3 
IF<  QPTN<  I  3.EQ.2HFN) 
IF<  OPTH<  I  > .  ECi .  2HDX  3 
CONTINUE 


L3TOP- . TRUE . 
BTMT I M» . TRUE . 
NODLIM- . TRUE . 
DONE- . TRUE . 
NODSTP- . TRUE . 


INITIALIZE  MODEL  PARAMETERS  FIRST  TIME  THROUCH . 

IF<  K ,EQ , 1  3  CALL  INIT7 

ASCENTS  ALWAYS  CAUSE  CHECK  TO  SEE  IF  DECOMPRESSION  STOPS  NEEDED. 
"CFSTOP"  SET  TO  TRUE  FOR  ALL  ASCENTS.  IF  “NODSTP"  IS  TRUE 
DECOMPRESSION  STOPS  WILL  NOT  BE  COMPUTED  AND  ASCENT  WILL  CO 
DIRECTLY  TO  THE  NEXT  STOP  WITHOUT  ANY  INTERVENING  STOPS. 

IF< RATE . LT .0.0  .AND.  .NOT. NODSTP)  CFSTOP- . TRUE . 

IF  “BTMTIM*  13  TRUE  THEN  “TIME"  INCLUDES  DESCENT  TIME.  SUBTRACT 
DESCENT  TIME  FROM  “TIME*.  TIMES  LESS  THAN  0.0  NOT  ALLOWED. 

IF<  BTMTIM  3  TIME- AM AX  1 <  <TIME-T<  K-1 3>,0.0> 


A1-5 


[g[lh>i  <im»  '  !>  t  *■+***'  ■  • 


COMPUTE  NC-OECOHPRESSION  TIME  IF  “NODLIM*  IS  TRUE. 


02  99  c 
03  00  C 
03  0 1  C 
03  02 
03  03  C 
03  04  C 
03  05  C 
03  06  C 
0307  220 

03  0a 
03  O'? 

03?  0 
03 1  I 
03 1  2 
03  1  3 
0314  C 
0315  C 
0316  C 

03 1  y 

0313 
0319 
032  0 
0321 
0322  C 
0323  C 
0324  C 
0325  C 
0326  C 
■0327  C 
032  a  C 
032? 

0330 
0331  C 
0332  C 
0333  C 
0334  230 

0335 
0336 
0337 
033S  C 
0339  C 
034  0  C 
0341 
0342 
0343 
0344 
0345 
0346  C 
0347  C 
0348  C 
0349 
0350 
0331  C 
0332  C 
0333  C 
0354  C 
0355  C 
0356  C 
0357  C 
0358 


IFi NODLIM )  CALL  HLIM?<  TIME  ) 

RECORD  PROFILE  COORDINATES  FOR  THE  FIRST  SUB-SECHENT. 

STOP  TIME  COMPUTATION  PROCEDURE  REENTERS  HERE. 

D<  K  )*CDEPTH 
TOO-TIHE 
ROO-RATE 
GAS(K)=FN2*1 00. 

CA9LBU  K >«PERCNT 
IFCCP02)  GAS(K)»P02 
IF<  CP02  )  GASLBLC  K  )»ATA 

UPDATE  MODEL  PARAMETERS  TO  END  OF  FIRST  SUB-SEGMENT , THEN  RECORD. 

RATE»u . 0 
DC»0. 0 
TC=TIME 
CALL  UPDT7 

CALL  RCRD7<  0, CNTR, LP  ) 

IF  ASCENDING  < “CFSTOP*  TRUE)  BRANCH  TO  FIRST  STOP  DEPTH 
COMPUTATION  PROCEDURE.  FIRST  STOP  PROCEDURE  WILL  SET  “DEPTH*  TO 
THE  DEPTH  OF  THE  FIRST  STOP  AND  SET  “CSTIME"  TO  TRUE  IF  ANY  STOPS 
HEEDED.  FIRST  STOP  PROCEDURE  RETURHS  TO  NEXT  STATENEHT  (#230). 
UPDATE  “RATE*  NOW  BECAUSE  FIRST  STOP  PROCEDURE  HEEDS  IT. 

9ATE=P(K) 

re/ 17F5TOP  '  GO  TO  35  2 

UPDATE  MODEL  PARAMETERS  TO  END  OF  SECOND  SUB-SEGMENT  THEN  RECORD. 

DC»OEPTH-CDEPTH 
TC»0C/RATE 
CALL  UP0T7 

CALL  RCRD7< 0.CNTR.LP) 

RECORD  PROFILE  COORDINATES  FOR  SECOND  SUB-SEGMENT. 

D<  K+’l  )«OEPTH 
T<  K+1  )*TC 
R<  K+1  )*0 . 0 
GAS(K+1  )-CAS(K) 

GASLBLC  K+1  )-CASLBLCK) 

UPDATE  POINTER  “K*  AND  CURRENT  DEPTH  “CDEPTH"  FOR  NEXT  SEGMENT. 

CDEPTH-OEPTH 

K«K+2 

IF  "CSTIME*  IS  TRUE  BRANCH  TO  STOP  TIME  COMPUTATION  PROCEDURE. 
PROCEDURE  CAUSES  INPUT  FROM  PROFILE  COORDINATE  INPUT  FILE  TO 
BE  SKIPPED  AND  WILL  RETURN  TO  STATEMENT  220.  IF  -LSTOP*  IS  TRUE 
GO  TO  STOP  TIME  PROCEDURE  TO  COMPUTE  LAST  STOP  TIME  BEFORE 
SURFACING. 


IF(C3TIME. OR. LSTOP)  GO  TO  400 


0359 
036  0 
036  1 
0362 
0363 
0364 
0365 
0366 
036? 
0363 
0369 
037  0 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0376 
0379 
0360 
0351 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0339 
0350 
039 1 
0392 
0393 
0394 
0395 
0396 
0397 
0358 
0399 
0400 
0401 
0402 
04  03 
04  04 
04  05 
04  06 
04  07 
04  08 
04  09 
0410 
041  1 
0412 
0413 
0414 
0415 
0416 
0417 
0418 


C  IF  DONE  CO  TO  OUTPUT  PROCEDURE.  IF  NOT  GO  BACK  TO  BEGINNING  OF 

C  LOOP 
C 

IF<  DONE  )  GO  TO  500 
GO  TO  210 
C 

£••*»**•*»•»*•*••»•*« ••••*•»•••»•«*••»••»•»•**** 

c 

C  END  OF  PROFILE  GENERATION  AND  UPDATE  LOOP 

C 

C«*m*»***»**MMMMM*»m««mMmil*MM*«**M**M»«***M(***Mlli*lt*»a* 

C 

C 

C  «****»  <•«**«*•«  **«•**«•  *•••*•••*••*•«••  aw  •»»»*»«»*****»**i«**wa*«*a»***** 

C 

C  FIRST  STOP  DEPTH  COMPUTATION  PROCEDURE 

C 

C  IF  STOPS  REQUIRED  BETWEEN  CURRENT  DEPTH  AND  NEXT  DESIRED  DEPTH 

C  THIS  PROCEDURE  SETS  “CSTIME*  TO  TRUE  SO  APPROPRIATE  STOPS  TIMES 
C  AT  PROPER  DEPTH  INCREMENTS  WILL  BE  COMPUTED,  THIS  PROCEDURE 
C  EXECUTES  ONLY  ONCE  FOR  EACH  ASCENT. 


c  ••****<•<•  w« »«**4*»*»**»4*»4*i***»*»a»»*»a*»** 

C 

C  SET  "FDEPTH*  TO  “DEPTH*  AND  COMPUTE  DEPTH  OF  FIRST  STOP  < DFS  5 . 

C 

300  CALL  FRSP7<  OFS  ) 

FDEPTH-OEPTH 

C 

C  IF  DEPTH  OF  FIRST  STOP  <DFS>  LESS  THAN  “DEPTH*  NO  STOPS  NEEDED. 

C  HOWE^SS  IF  DEPTH  IS  Q.O  THERE  IS  ALWAYS  »  »TuP  »T  “DINC"  EVEN  IF 

C  IT  IS  0.0  WHICH  IT  WILL  BE  FOR  NO-OECOMPRESSION  DIVES. 

C 

IF< DFS. LE. DEPTH  .AND.  DEPTH . HE . 0 . 0 >  GO  TO  360 

C 

C  SET  “C3TIME"  TRUE  30  STOP  TIMES  WILL  BE  COMPUTED.  SET  DEPTH  TO 

C  FIRST  STOP  DEPTH  <0FS)  OR  “DINC"  WHICHEVER  IS  DEEPER. 

C 

DEPTH-AMAX 1 <  OFS .DINC) 

CSTINE* . TRUE . 

C 

C  SET  "CFSTOP*  TO  FALSE  30  WON’T  COME  BACK  UNTIL  THE  NEXT  ASCENT 

C  OCCURS-  THEN  GO  BACK  TO  PROFILE  GENERATION  AND  UPDATE  LOOP. 

C 

360  CFSTOP*. FALSE. 

GO  TO  230 

C 

Cu«*n<nnMMMmMn  ******************************  •**•••**•»*•***•**» 

C 

C  END  FIRST  STOP  PROCEDURE 

C 

C  *****«*•»**•***»•*  ******  **************  •***••**•****«*»**••«*****•*»,•,»,, 

c 

c 

CmaaMMawmtwaMMMwmwwAWMMMMitMMMawwaMWMMw 

C 

C  STOP  TIME  COMPUTATION  PROCEDURE 

C 

C  COMPUTES  STOP  TIMES  AMD  THEN  DECREMENTS  DEPTH  BY  “DINC*  UNTIL 
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C4:3  C  NEXT  DESIRED  DEPTH  <FOEPTH:>  REACHED .  AS  LONG  AS  ”CSTIME“  IS  TRUE 

0420  C  THE  INPUT  FROM  THE  PROFILE  COORDINATE  INPUT  FILE  WILL  BE  SKIPPED. 

0421  C  WHEN  "FOEPTH”  IS  REACHED  HAVING  TAKEN  ALL  HECESSARV  DECOMPRESSION 

0422  C  STOPS  THEN  “CSTIME”  IS  SET  TO  FAL3E .  IF  "LSTOP"  IS  TRUE  THEN  COME 

0423  C  ShCK  ONE  MORE  TIME  TO  COMPUTE  THE  LAST  STOP  TIME  BEFORE  SURFACING. 

3424  C 

042;  C  PROCEDURE  ALUAVS  RETURNS  TO  STATEMENT  #220. 

0426  C 

0427  C  ■•■•***■«*»**»*****•»•***»*•*»*****»**»*»»****•*••***•******»****»*******» 

0423  C 

042?  C  IF  WITHIN  "DINC"  OF  "FOEPTH"  A  DIFFERENT  PROCEDURE  MUST  BE  USED. 

0410  C 

0471  400  IF*f  <  CDEPTH-FDEPTH  )  .  LE  .DINC  3  CO  TO  4t0 

0432  C 

3433  C  ‘•TIME-  IS  STOP  TIME  AT  *CDEPTH“  BEFORE  ASCENDING  “DINC". 

04  34  C 

0435  OEPTH-CDEPTH-OINC 

0436  Call  3TIM?<TIME, DEPTH) 

0437  C 

3433  C  RETURN  TO  PROFILE  GENERATION  AND  UPDATE  LOOP. 

3433  C 

3440  GO  TO  220 

3441  C 

3442  C  IF  “CSTIME”  TRUE  WE'RE  NOT  AT  “FDEPTH”  YET. 

3443  C 

0444  410  IF<  CSTIME  3  GO  TO  420 

344*  c 

0446  C  HT  LAST  DEPTH  BEFORE  SURFACING,  SET  “FDEPTH"  TO  THE  SURFACE  AND 

0447  C  COMPUTE  LUST  STOPTIME.  DECREMENT  DEPTH  BY  "DINC"  AND  SET  "CSTIME" 

3443  c  TRUE  SO  MODEL  PARAMETERS  WILL  BE  RECORDED  EVERY  INCREMENT  EVEN 

3444  c  THOUGH  STOP  TIMES  WILL  BE  0.0.  "LSTOP"  SET  TO  FALSE  BECAUSE  WE 

•'•4;c  C  DON'T  *An7  70  COME  3hC6  hGmIN  *H£n  SuRFhCE  REaCnED  ■ 

34;  I  C 

0452  FDEPTH* 0.0 

0453  CALL  3TIM7< TIME , FOEPTH > 

0454  DEPTH-CDEPTH-OINC 

0*55  CSTIME*. TRUE. 

0456  LSTOP- , FALSE. 

0457  GO  TO  220 

0453  C 

045*5  C  LAST  STOP  TINE  COMPUTED.  NEXT  DEPTH  IS  ‘FDEPTH*. 

0460  C 

0461  420  OEPTH-FDEPTH 

0462  CALL  STIM7< TIME, FOEPTH 3 

0463  C 

0464  C  SET  "CSTIME”  TO  FALSE  SO  WON'T  COME  BACK  UNLESS  "LSTOP”  IS  TRUE. 

04  65  C 

0466  CSTIME*. FALSE. 

0467  GO  TO  220 


0463  C 

0465  C*— ***************************************************** **************** 

0470  C 

0471  C  END  3TOP  TIME  PROCEDURE 

0472  C 


0473  C*— ********************* ** ********** **************** ******************** 

0474  C 
0475  C 

0476  C 4 ************************************ ********************************** 

0477  C 

0473  C  PROFILE  OUTPUT  PROCEDURE 


1 
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COMPUTE  ZERO  TIME  VALUES  PROM  ELAPSED  TIME  VALUES. 


0474  C 
0430  C 
0431  C 
0432  C 
0483  C 
0434  500  ZT<  1  >-0 . 0 

0435  DO  31 0  1-2, K-1 

0438  310  ZT<  I  >-ZT<  I- 1  )-fT<  I  ) 

0437  C 

0433  C  OUTPUT  MODEL  PROFILE  PARAMETERS  ?  < VES  OR  MO > 

0433  C 

0430  READ<  LB , 22 )  NOPRNT 

0431  c 

0442  C  OUTPUT  DATE, TIME, AND  STOP  DEPTH  INCREMENT  HEADER. 

0433  C 

3444  UR  I TE<  LP ,  1  )  OAVTIM 

0445  IF! .NOT. METRIC)  WRTTE!LP,42)  DINC.UFEET 

0436  IF<  METRIC  )  WRITE!LP,42)  0  INC , UMETER 

0437  C 

0439  C  URITE  OUT  PROFILE  IDENTIFIER , MODEL  PARAMETER  INPUT  FILENAME  AND 
0433  C  INERT  GAS  NAME. 

05  0  0  C 

0301  URI TE< LP ,41)  NP1F,IGAS 

0302  WRITE! LP, 24 )  PR01D 

0303  WRITE! LP , 6 ) 

0304  C 

0503  C  WRITE  OUT  DIVE  PROFILE. 

05  06  C 

0307  DO  563  1-1 , K-1 

0308  363  URITE! LP , 2 )  2T! I),T!I),0!2),R!I), GAS! I  ) , CASLBL! I  ) 

0309  C 

031 j  c  IF  MODEL  PARAMETERS  NOT  WANTED  SKIP  REST  OF  OUTPUT  ROUTINE. 

05  ;  C. 

0512  IF! NOPRNT. EQ.2HNO)  GO  TO  575 

0513  C 

0314  C  OUTPUT  DATE, TIME, AND  STOP  DEPTH  INCREMENT  HEADER. 

0313  C 

0316  UR  I TE! LP , 1  )  DAVTIM 

0317  IF!  NOT. METRIC)  WRITE! LP, 42  )  D INC, UFEET 

0313  IF! METRIC )  URITE!LP,42)  OINC, UMETER 

03 1  3  C 

0520  C  WRITE  OUT  PROFILE  IDENTIFIER.  MODEL  PARAMETER  INPUT  FILENAME 

0321  C  AND  INERT  GAS!ES)  NAME! S ) . 

0522  C 

0323  URITE!LP,41 >  MPIF, 1GAS 

0524  URITE! LP , 24  )  PROID 

0323  C 

0526  C  URITE  OUT  MODEL  PROFILE  PARAMETERS. 

0327  C 

0523  CALL  RCRD7! 1 , CNTR , LP ) 

0529  C 

0530  C  IF  ANOTHER  PROFILE  FOLLOWS  GO  BACK  TO  PROFILE  GENERATION  AND 

0331  C  UPDATE  LOOP.  IF  NOT, STOP  PROGRAM  AFTER  FORM  FEEDING  LINE  PRINER. 

0332  C 

0333  573  READ! LB, 22)  MORE 

0334  IF! MORE . EQ . 2HYE )  GO  TO  200 

0335  WRITE! LP, 1 ) 

0536  STOP 

0337  END 

0333  END* 
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AMEX  A- 2 

PROGRAM  TBLP7 
LISTING 


f  — 

t"* caa'*°  ,  ,.K 


iTSLP?  T-00004  JS  ON  CR00012  USING  00122  BLKS  R-0000 


PROGRAM  TBLP7<3,99j,  26  SEPT  32  VER  t.t 


MODEL  INDEPENDENT  DECOMPRESSION  TABLE  COMPUTATUION  PROGRAM. 
DECOMPRESSION  MODEL  WRITTEN  IN  7  SUBROUTINES 

ACCEPTS  PROFILE  COORDINATE  INPUTS  FROM  A  PROFILE  COORDINATE  INPUT 
FILE  AND  PRINTS  OUT  DECOMPRESSION  TABLES  IN  U.S.  NAVY  FORMAT  ON 
THE  LINE  PRINTER. 


9  00  999999  00  00  @9999999  90  @009013  bopsc-goi? 

•  9 

9  URITTEN  BY  9 

9  9 

9  CDR  EDWARD  D.  THALMANN  MC  >  USN  9 


9  U.S.  NAVY  EXPERIMENTAL  DIVING  9 
9  UNIT  9 
9  PANAMA  CITY, FLORIDA  32407  9 
9  9 
9999909999990990999999999999999999999 


#«•••»«•«•««  «««««««««•«**•• %**«*«««***•»»*»•«•»«••«*«*«*• 

C  ******* *4*%** 

c  *  variables  * 


VARIABLES  ASSOCIATED  WITH  HEWLETT  PACKARD  RTE  IV-9 
OPERATING  SYSTEM 


ASTIM 

BTMAX 

BTMTIM 

CDEPTH 

CF 

CFSTOP 

CONC 

CONLSL 

CP02 

CSTIME 

D 

•OAYTIM 

OC 

OEPTH 

DFS 

DINC 

DONE 

DSTOPS 

FDEPTH 

FN2 

FULBUF 

GAS 

CASTSN 


TOTAL  TIME  OF  ASCENT  (MINI 

MAXIMUM  PERMISSABLE  BOTTOM  TIME  <MIN> 

OESCENT  TIME  INCLUDED  IN  "TIME"'? 

CURRENT  DEPTH  <FSU  OR  HSU ) 

METRIC  CONVERSION  FACTOR 
CALCULATE  FIRST  STOP? 

OXYGEN  TENSION  FOR  PRINTOUT 
OXYGEN  TENSION  LABELS  FOR  PRINTOUT 
CONSTANT  PARTIAL  PRESSURE  02? 

COMPUTE  STOP  TIMES? 

PROFILE  DEPTH  ARRAY 
DATE  TIME  ARRAY 

PROFILE  3UB-SEGMENT  DEPTH  CHANGE  <FSU  OR  HSU? 
NEXT  OEPTH  (FSU  OR  MSU> 

DEPTH  OF  FIRST  STOP  < FSU  OR  HSU) 

STOP  DEPTH  INCREMENTS  < FSU  OR  HSW> 

DONE  ENTERING  CURRENT  PROFILE? 

OEPTHS  OF  DECOMPRESSION  STOPS  < FSU  OR  N$U> 
FINAL  DEPTH  FOR  ASCENTS  CFSW  OR  MSU > 

CURRENT  INERT  CAS  FRACTION  IN  USE 
“IPRO"  BUFFER  FULL? 

PROFILE  INERT  GAS  TENSION  ARRAY 
CAS  TENSION  VALUE  ARRAY 
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0  053 
0053 
0  06  0 
0061 
00 62 
0063 
0064 
0065 
0066 
006? 
0>>6s 
0063 
0070 
0  071 
0072 
0073 
0074 
0075 
0076 
0u77 
0073 
0073 
0030 
3031 
0082 
0033 
0034 
0035 
0036 
0037 
0033 
0036 
0030 
0031 
0032 
00'?3 
0034 
00  35 
0096 
0097 
0098 
0099 
01  00 
01  01 
01  02 
01  03 
01  04 
01  05 
01  06 
01  07 
oi  oe 
01  09 
01  1  0 
01  I  1 
01  12 
01  13 
01  14 
01  15 
01  16 
Oil? 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c< 

c 

Cl 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ICHHC 
ICONC 
!  GAS 
I  LBL 
*  I  PAR 
IPRO 
IPRT 
IRATE 
*ISE3 
I  STOP 
K 

LB 

LP 

LSTGP 

LU 

MAXPRO 

METRIC 

MORE 

MPIF 

MGOS 

NLINE 

NODLIM 

NODSTP 

NORCRD 

NPftu 

NSTOP 

OPTN 

P02 

PROFU 

PROID 

ft 

RATE 

T 

TC 

totmax 

TFS 

TIME 

THIN 

TSEC 

UFEET 

ULBL 

UMETER 

UNIT3 

ZT 


BOTTOM  DEPTH  OF  PROFILE  GROUP  BEING  PRINTED 
POINTS  TO  PQ2  OR  F02  LABELS  IN  “CQNLBL" 

INERT  GAS<  ES  >  NAME<  S  ) 

POINTS  TO  UNITS  OR  SPECIFICATION  IN  “CONLBL" 

LOGICAL  UNIT  NUMBER  ARRAY 
DECOMPRESSION  PROFILE  ARRAY 
PRINT  MODEL  PARAMETER  INPUT  FILE’ 

RATE  SPECIFIED  ON  FIRST  PROFILE  <FSU  OR  HSU/MIN) 
DUMMY  VARIABLE 

STOP  DEPTH  AT  CURRENT  “IPRO"  POSITION  < FSU  OR  MSN) 
CURRENT  POSITION  IN  OIVF  PROFILE  ARRAYS 
PROFILE  COORDINATE  INPUT  FILE  DEVICE  NUMBER 
DEVICE  NUMBER  FOR  LINE  PRINTER 
LAST  STOP  BEFORE  SURFACING? 

DEVICE  NUMBER  FOR  TERMINAL 
MAXIMUM  NUMBER  OF  PROFILES  PER  PACE. 

DEPTH  AND  RATE  INPUTS  IN  METERS? 

DO  ANOTHER  DIVE  PROFILE? 

MODEL  PARAMETER  IHPUT  FILENAME 
GAS  TENSION  ARRAY,  “GASTSN “ ,  SUBSCRIPT 
POINTS  TO  PROPER  STATEMENT  NUMBER  FOR  PRINTOUT 
COMPUTE  NO-OEC OMPRESSION  LIMIT' 

DON'T  COMPUTE  DECOMPERSS ION  STOPS  ? 

DON'T  RECORD  OIVE  PROFILE  ? 

NUMBER  OF  PROFILES  RECORDED  IN  “IPRO". 

MAXIMUM  NUMBER  OF  STOPS  ALLOWED  BY  PRINTOUT  FORMAT 
OPTION  ARRAY 

CURRENT  OXYGEN  PARTIAL  PRESSURE  (ATA) 

FIRST  PROFILE  TO  BE  READ  IN*> 

PROFILE  IDENTIFICATION  LABEL 
OIVE  PROFILE  RATE  ARRAY 

RATE  OF  CURRENT  PROFILE  SUB-SEGMENT  <FSU  OR  MSU/MIN) 
ELAPSED  TIME  DIVE  PROFILE  ARRAY 

TIME  CHANGE  OF  CURRENT  PROFILE  SUB-SEGMENT  <MIN> 
MAXIMUM  PERM IS SABLE  TOTAL  DIVE  TIME  <MIN> 

ASCENT  TIME  TO  FIRST  STOP  <NIM> 

TIME  AT  CURRENT  DEPTH  <MIN> 

WHOLE  MINUTES  PORTION  OF  TIMES 
WHOLE  SECOMDS  PORTION  OF  TIMES 
FEET  LABEL 

DEPTH  UNITS  LABEL  FOR  PRINTOUT 
METERS  LABEL 

DEPTH  UNITS  INDICATOR  < 1 -FSU , 2-MSU > 

DIVE  PROFILE  ZERO  TIME  ARRAY 


I##*#*###*####################*############ 


•««•••«« 


•  *•*•*»**** 


•  SUBROUTINES  REQUIRED  « 

•*•»**■ %*«»»» »*«****«*»* 


DECOMPRESSION  MODEL 

BL0C7  INITIALIZES  DATA  IN  COMMON  BLOCK 

UPDT7  UPDATES  MODEL  OVER  ONE  PROFILE  SUB-SEGMENT 

FRSP7  COMPUTES  DEPTH  OF  FIRST  STOP 

STIM7  COMPUTES  STOP  TIME  AT  A  GIVEN  DEPTH 
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NLIM?  COMPUTES  NO  DECOMPRESSION  TIME 
RDIN7  READS  IN  MODEL  PARAMETER  INPUT  PILE 
IHIT7  INITIALIZES  MODEL 


*  HEULETT  PACKARD  RTE  IV-B  OPERATING  SVSTEM  SUBROUTINES 
AND  FUNCTIONS. 

•FTIME  GETS  DATE  AND  TIME  FROM  COMPUTER 

*RMPAR  PASSES  LOGICAL  UNIT  •  OF  TERMINAL  TO  PROGRAM 

•LuCLU  LOGICAL  UNIT  »  OF  TERMINAL 

•LUTRU  LOCICAL  UNIT  #  OF  TERMINAL  ON  ERROR 


MODEL  INPUT  PARAMETERS 

THIS  IS  THE  ONLY  DATA  TRANSFERRED  TO  THE  MODEL  SUBROUTINES. 

THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

CONMGN/MO ATA/  TC ,  DC ,  CDEPTH , R ATE .  CP02 ,  FN2 ,  P02 ,  D I  NO ,  CF 

LOCICAL  CP02 , CFSTOP , CSTIME, DONE , LSTOP , METRIC , NODSTP , PROFL 1 , FULBUF 
LOCICAL  NOOLIM , 8TMTIM , NOR CRD 
DOUBLE  PRECISION  UFEET , UMETER , ULBL 
INTEGER  IPAR(S),MPIF(3),PR0ID(20),DAYTIM( 13) 

INTEGER  DSTOPS<  15),  IPRO( 24 , 26  ) , OPTN( 4 ) , UN  ITS 
REAL  2T<  1  00  >,  T(  1  00  )  ,  D(  1  00 ) ,  R<  100),  GAS(  1  00  >,  IGAS<3> 

REAL  CONLBL<  2,2), GASTSN<  2,4  ) 

DATA  CONLBL, DST0PS/4H  ATA,4HJJ  ,  4H  P02,4H  F02.13*u/ 

DATA  I  GAS ,  I  PRO ,  IPRT ,  LB ,  LP ,  HAXPR0/3*4H  ,624*0,  0,9,6,25/ 

DATA  NPRO , NSTOP , PROFL 1 , NQRCRD/0, 15, .TRUE. , .FALSE./ 

DATA  UFEET, UMETER/6HFEET  , 6HMETERS/ 


FOPHATC 14, *  FOOT  INCREMENT*) 

FORMAT< 14, *  METER  INCREMENT") 

FORMAT< /-PRINT  MODEL  INPUT  PARAMETERS  7  (1-YES 
FORMAT<  3A2) 

FORNAT<  At , II , 3A2 ) 

F0RMAK4X,  1SA2*  TBLP7*  > 

FORMATC *  : *4X , 1 5A2“  TBLP7  "3A2*  (“A6">B/> 

FORMAT< 

**  :“4X“DEPTH  BTM  TM  T0*T39*DEC0MPRESSI0N  STOPS  (“A1 
*“SU  )*T83* TOTAL-/ 

*•  : *4X“< *A1 *sy  )  TIM  FIRST*T43’ST0P  TIMES  <MIN)*T83 
*“ASCNT“/T1 3  *<M)  ST0P"T83"TIME"/“  :*6X,T1? 


(1-YES  2- NO )  “> 


0166 

*"<  M  :S  )* 

13, 

1414, 2X, *(M:S  )"/) 

0167 

44 

FORMAT( 

"  ; 

"  ) 

01  65 

46 

F0RMAT< 

“  J 

*6X , 79**"  ) 

0169 

47 

FORMAT( 

"t  " 

) 

0170 

48 

FORMAT< 

"  1 

*6X , F4 . 2 , A4"  FIXED *A4"  IN 

-3A4.3X 

N 

DESCENT 

0171 

* 

*PM  ASCENT  RATE"I3, IX, A1 

*PM*/  ) 

0172 

50 

FORMAT( 

"  1 

*6X, 13, I4,I3,*i',2I1,33X, 

14,14, 

:  *  ,  21 1  > 

0173 

31 

FORMAT( 

*  J 

*6X,  13,  14, 13,  "i*,  211 ,  SIX, 

214,14, 

:  21 1  ) 

0174 

32 

FORMAT< 

* 

"6X, 13, 14, 13,*:“. 211, 47X , 

314, 14, 

: *,211  ) 

0175 

33 

F0RMAT< 

*6X, 13, 14, 13,*:*, 211, 43X, 

414, 14, 

:  *  ,  21 1  ) 

0176 

34 

FORMA  T( 

"6X, 13, 14, 13,*:*, 211 ,39X, 

314, 14, 

:  “  ,21 1  ) 

0177 

S3 

F0RNAT( 

*6X, 13, 14, 13, “ : ",2J1 ,35X, 

614, 14, 

:  “  ,21 1  ) 

41  76 

56 

cGRM«TC  “ 

"6X, 13, 14, 13, " : * ,21 1 , 31 X,  714, 14,":". 211  ) 

0179 

FGRMATC  • 

“6X, 13, 14. 13, “ : *,211 ,27X,  814,14,*:". 211) 

0190 

59 

FORMAT  c ■ 

*6X, 13, 14, 13,":", 211, 23X,  914, 14,*:", 211) 

0191 

59 

FORMATC * 

"6X, 13, 14. 13, * : ",2I 1 , 19X, 1 014, 14, • : ",2J 1  > 

0192 

60 

FORMAT  C  “ 

“6X, 13, 14, 13. ": ",2II , I5X, 11 14, 14, " : “,21 1  ) 

0133 

6  1 

FORMAT C * 

“6X, 13, 14, 13, " : ",2II . 1 IX, 1214, 14, • : “,21 1  ) 

0134 

62 

FGRMATC  " 

*6X, 13. 14, 13,": *,211 ,  7X , 1 31 4 , 1 4 , » : * , 2 1 1  ) 

0195 

63 

FORMATC  « 

"6X, 13, 14, 13, " : ",2I1 ,  3X, 1414, 14,*:*, 211) 

01  36 

64 

F0RMAT< ” 

*6X, 13, 14, 13, * : *,211 ,  13, 1414, 14,“:", 211  ) 

0137 

c 

0 1  33 

c  «** 

0139 

c 

jl  3  0 

c 

PROCRAM  INITIALIZATION  PROCEDURE 

0191 

c 

u  t  5  2 

£  * 

0193 

c 

0194 

c 

01  35 

c 

GET  TIME  AMO  DATE  FROM  RTE  IV-B  OPERATING  SYSTEM  INTO  "DAYTIM" . 

0196 

£ 

■it  *7 

call  ftimec daytim) 

01  39 

c 

0  1  ■?* 

c 

establish 

TERMINAL  USED  FOR  PROGRAM  CONTROL. 

02  0  0 

c 

02  C 1 

CALL  RMPAR<  IPAR  0 

0202 

LU-IPARC 1 

0203 

IFCLU.LE. 

)  LU-LUTRUC  LU  ) 

02  04 

IFCLU.LE. 0)  LU-LOCLUC ISES ) 

32  05 

c 

02  06 

c 

READ  IN  MODEL  PARAMETER  INPUT  FILE  NAME.  DEPTH  UNITS.  AND  STOP 

0207 

c 

DEPTH  INCREMENT  FROM  PROFILE  COORDINATE  INPUT  FILE  DEVICE  "LB" . 

02  09 

c 

02  09 

*5*0  ‘LB. 

22)  MP IF 

02  '  0 

UR ITE<  LU , 

22)  MPIF 

02  1  1 

REAO  <LB.«)  UNITS, DINC 

02 ‘2 

c 

0213 

c 

IF  "UNITS 

NOT  1  THEN  DEPTH  INPUT  WILL  BE  IN  METERS. 

021  4 

c 

0215 

METRIC-  FALSE. 

02-6 

IFC  UNITS . NE . 1  0  HETR IC» . TRUE . 

02  1  7 

IF<  .NOT. METRIC  5  UP1TECLU.3)  DINC 

0213 

IFC  METRIC  0  UR I TEC  LU, 3  >  DINC 

0213 

c 

0220 

c 

“CF"  CONVERTS  METERS  TO  FEET  FOR  METRIC  INPUTS. 

0221 

c 

0222 

CF  *  1  .  0 

0223 

IFC METRIC >  CF» 1 . 0/0 , 3048 

0224 

c 

0225 

c 

ASIC  IF  MODEL  PARAMETER  PRINTOUT  WANTED.  IF  IT  IS  THEN  "IPRT"  WILL 

0226 

c 

BE  1  AND  DATE, TIME  PAGE  HEADER  PRINTED.  RDIN7  RETURNS  GAS  LABEL 

0227 

c 

“ICAS"  AFTER  READING  DATA  FROM  THE  MODEL  INPUT  PARAMETER  FILE. 

0223 

c 

R0IN7  WILL  PRINTOUT  MODEL  INPUT  PARAMETER  FILE  IF  "IPRT"  IS  1. 

0229 

c 

0230 

UR I TEC  LU, 9  0 

0231 

REAOC  LU,  )  IPRT 

0232 

IFC IPRT. EQ. 1  >  URITE<LP,26)  DAYTIM 

0233 

CALL  RDIN7<LU,LP,MPIF, METRIC, ICAS, IPRT) 

0234 

c 

0235 

c 

COMPUTE  STOP  DEPTHS  FOR  LATER  TABLE  PRINTOUTS. 

0236 

c 

0237 

DSTOPSC  1  7-NSTOP-D I NC 
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0233 
0239 
024  o 
024  1 
02*1 
0543 
0544 

il  £  4  « 

0246 
0247 
0249 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0255 
0259 
0260 
026  I 
0262 
0263 

0264 

0265 
0266 
0267 
0263 
•026? 
027  0 
0271 
0272 
02-73 

0274 

0275 

0276 

0277 

0278 

0279 

0230 

0231 

02-52 

0233 

0284 

0235 

0236 

0237 

0283 

0239 

0290 

0291 

0292 

0293 

0294 

0255 

0296 

0297 


00  100  I-2.NST0P 
100  DSTOPS<  I  )-OSTOPS<  1-1  l-DINC 

c 

C  SET  VALUES  FOR  MAXIMUM  TOTAL  DIVE  AND  BOTTOM  TINES. 

C 

8TMAX=365 . 

TOTMAX»180. 0 


C 

C  END  PROGRAM  INITIALIZATION 

C 

c 


L  « 


C  PROFILE  INITIALIZATION  PROCEDURE 

C 

C  SKIP  PROFILE  IDENTIFIER,  NOT  HEEDED. 

C 

200  REwO<  LB  > 

C 

C  READ  IN  INERT  GAS  FRACTIONS  AND  PARTIAL  PRESSURES  FROM  THE  PROFILE 

C  COORDINATE  INPUT  DEVICE  "LB"  ON  THE  FIRST  PROFILE  ONLY .  SPACE  PAST 

•:  THIS  INPUT  ON  ALL  OTHER  PROFILES.  ‘PROFL1“  SET  TRUE  IN  DATA 

C  STATEMENT. 

c 

IF\  PPOFL1  >  REAO<  LB ,  *  '  < < GASTSN< I , j  ) , I  *  1 , 2  ; , J» 1 , 4 > 

!F<  NOT . PROFLt  )  REAOCLBI 

c 

C  INITIALIZE  LOGICAL  VARIABLES  CONTROLLING  FIRST  STOP  AND  STOP  TIME 

C  PROCEDURES.  SET  PROFILE  ARRAY  SUBSCRIPT  TO  1. 

c 

CFSTOP". FALSE. 

CSTIME».  FALSE. 

K»1 

C 

C  READ  IN  INITIALIZATION  DEPTH,  FIRST  NEW  DEPTH,  AND  THE  RATE  THEN 

C  SKIP  OVER  THE  PROFILE  COORDINATE  INPUT  AT  STATEMENT  #210.  THE  RATE 

C  SPECIFIED  HERE  MILL  BE  USED  FOR  ALL  SUBSEOUENT  PROFILES.  "PROFL1" 

C  SET  TO  FALSE  AND  NO  FURTHER  RATES  WILL  BE  ASSIGNED  TO  “ IRATF" 

C  UNLESS  THE  PROGRAM  IS  RESTARTED. 

C 

READ<  LB , * 5  CDEPTH, DEPTH, RATE 
TIME’O . 0 

IF<  PROFL1  )  IRATE*RATE 
PROFL1-. FALSE. 

GO  TO  211 
C 

C******************** *•**•«** *>•***«•*** •«**«•*•*****•*»****. **«*•***•**« 

C 

C  END  PROFILE  INITIALIZATION  PROCEDURE 

C 

Caiaaanai*MMMMmaan>*«tumMt«<u«*nmMaaim»»»nnM«ai>Mai»aM 

C 

C 

Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaavaaaaaaaaaaaaaaaa 
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I 


0299  C 

0299  C  PROFILE  GENERATION  AND  UPDATE  LOOP 

0300  C 

03 Ot  C  EXIT  LOOP  ONLY  WHEN  *OONE‘  BECOMES  TRUE. 

0302  C 
0303 
0304  C 

0305  C  READ  TIME  AND  NEXT  DEPTH  COORDINATES  ONLY.  IGNORE  RATE. 

0306  C 

030?  21 0  RSAD< LB,  •  >  TIME. DEPTH 

0303  C 

0309  C  -PATE"  ALWAYS  SET  TO  ‘IRATE’  WHICH  WAS  SPECIFIED  IN  FIRST  PROFILE. 
0310  C 

031 1  RATE-IRATE 

0312  C 

0313  C  GIVE  RATE  PROPER  SIGN. 

0314  C  ‘ 

0315  211  RATE-ABS<RATE) 

0316  IF< DEPTH. LT.CDEPTH)  RATE— RATE 

0317  C 

0318  C  READ  IN  OPTIONS  AND  CAS  TENSION  ARRAY  SUBSCRIPT. 

0319  C 

0320  REAO< LB. 25 >  OPTN<  1  > ,  NCAS .  <  OPTN<  I  >.  1-2.4) 

0321  C 

0322  C  INITIALIZE  VARIABLES  SET  BY  OPTIONS. 

0323  C 

0324  NODSTP-. FALSE. 

0325  LSTOP-. FALSE. 

0326  DONE-. FALSE. 

0327  BTMTIM-. FALSE. 

0328  NODL I M— . FALSE . 

0329  C 

0330  C  FIRST  OPTION  MUST  ALWAYS  SPECIFY  A  GAS  TEN8I0N.  IF  IT  DOESN'T  THEN 
0331  C  SKIP  EXECUTION  OF  OPTIONS. 

0332  C 

0333  IF<OPTN< 1 >.HE. IMP  .AND.  OPTN< 1 > . HE . 1 HF  >  GO  TO  216 

0334  C 

0335  C  SET  UP  CAS  TEN820NS  SPECIFIED  BY  *OPTM< 1 >*  AND  ‘NGAS‘ . 

0336  C 

0337  I  F<  OPTN<  1  )  .  EQ .  1  HP  >  CP  02- .  TRUE  . 

0339  IF<OPTH< 1  ).E0. 1HF>  CP02-. FALSE. 

0339  I  F<  .  NOT .  CP02  >  FN2-CASTSN<  I .  NG  AS  > 

0340  IF< CP02 )  P02-GASTSN< 2 . NGAS ) 

0341  C 

0342  C  EXECUTE  REST  OF  OPTIONS. 

0343  C 

0344  DO  214  1-1,4 

0345  IF<OPTN< I >.E0.2HL3)  LSTOP- . TRUE . 

0346  IF<  0PTH< I ) .EQ . 2HTX )  BTMTIM- . TRUE . 

0347  IF<  OPTN< I > . EO • 2HNO  >  NODL IM- . TRUE . 

0348  IF<  OPTN< I > . EO . 2HFN )  DOME-. TRUE. 

0349  IF<  OPTN< 1 1 . EO • 2HDX  >  NODSTP- . TRUE . 


0330  214  CONTINUE 

0331  C 

0332  C  INITIALIZE  MODEL  PARAMETERS  FIRST  TINE  THROUGH 

0333  C 

0334  216  IF<K.EQ. 1 >  CALL  INIT7 

0333  C 

0336  C  ASCENTS  ALWAYS  CAUSE  CHECK  TO  SEE  IF  DECOMPRESSION  STOPS  NEEDED. 

0337  C  ‘CFSTOP’  SET  TO  TRUE  FOR  ALL  ASCENTS.  IF  ‘NODSTP*  IS  TRUE 


0336  C  DECOMPRESSION  STOPS  MILL  NOT  BE  COHPUTEO  PND  ASCENT  MILL  CO 

0359  C  DIRECTLY  TO  THE  NEXT  DEPTH  WITHOUT  ANY  INTERVENING  STOPS. 

036  0  C 

0361  IFC  C  RATE. LT . 0. 0  >. AND . < .NOT . NODSTP  ) >  CFSTOP- . TRUE . 

0362  C 

0363  C  IP  ‘BTHTIH*  IS  TRUE  THEN  'TIME*  INCLUDES  DESCENT  TINE.  SUBTRACT 

0364  C  DESCENT  TINE  PROM  "TINE" .  TINES  LESS  THAN  0.0  NOT  ALLOWED. 

0365  C 

0366  IF< BTNTIN)  TINE- ANOXIC < T1HE-TC K-1 > >, 0. 0 > 

0367  C 

0368  C  COMPUTE  NO-De COMPRESS ION  TINE  IF  ‘NODLIN*  IS  TRUE.  ADD  NOH>  TINE 
0369  C  ( MINIMUM  VALUE  .98)  TO  DESCENT  TINE.  TRUNCATE  AND  SUBTRACT  DESCENT 

0370  C  TINE  CRESULT  WILL  NOT  BE  LESS  THAN  ROUNDED  UP  DESCENT  TIRE).  THIS 

037 1  C  ENSURES  THAT  BOTTOH  TINE  < SUN  OF  DESCENT  TINE  AND  TINE  AT  DEPTH) 

0372  C  MILL  ALWAYS  BE  IN  WHOLE  HINUTES.  DON'T  EXCEED  HAXINUM  BOTTOH  TINE. 

0373  C 

0374  IFC .NOT .NOOLIH)  CO  TO  2!9 

0375  CALL  NL1H7C  TINE ) 

0376  IFC  <  TINE—TC  K— t ) > . CT . BTHAX  >  TIHE-STHAX-TC K-1  ) 

0377  TINE-AINTC  ARAXIC  TIRE.  0.99  )+TC  K-1  )>-TCK-1  ) 

0378  C 

0379  C  ADD  0.001  TO  ‘TIRE*  TO  TAKE  CARE  OF  POTENTIAL  ROUNDOFF  ERROR  WHEN 
0380  C  THE  DESCENT  TIRE  ANO  TIRE  AT  DEPTH  ARE  ADDED  DURING  ZERO  TIRE 

0331  C  CONFUTATION  IN  THE  PROFILE  RECORDING  PROCEDURE. 

0332  C 

0333  219  TIRE— TIHE40. 001 

0384  C 

0385  C  RECORD  PROFILE  COORDINATES  FOR  FIRST  SUB-SEGMENT . 

0336  C  STOP  TIRE  CONFUTATION  PROCEDURE  REENTERS  HERE. 

0387  C 

0338  220  DC  K  )— COEPTH 

0339  T<  K  >-TlME 

0390  RCIO-RATE 

0391  C 

0392  C  UPDATE  NODEL  PARAHETERS  TO  END  OF  FIRST  SUB-SECHEHT , THEN  RECORD. 

0393  C 

0394  RATE-0.0 

0395  DC-0.0 

0396  TC-TIHE 

0397  CALL  UPDT7 

0398  C 

0399  C  IF  ASCENDING  C ‘CFSTOP*  TRUE)  BRANCH  TO  FIRST  STOP  DEPTH 

0400  C  CONFUTATION  PROCEDURE.  FIRST  STOP  PROCEDURE  MILL  SET  ‘DEPTH*  TO 

0401  C  THE  DEPTH  OF  THE  FIRST  STOP  ANO  SET  ‘CSTIME*  TO  TRUE  IF  STOPS 

0402  C  HEEDED.  FIRST  STOP  PROCEDURE  RETURNS  TO  NEXT  STATERENT  <62301. 

0403  C  UPDATE  ‘RATE*  NOW  BECAU8E  FIRST  STOP  PROCEDURE  NEEDS  IT. 

0404  C 

0405  RATE-RCK) 

0406  IF< CFSTOP)  GO  TO  300 

0407  C 

0408  C  UPDATE  NODEL  PARAHETERS  TO  ENO  OF  SECOND  SUB-SEGHENT  THEN  RECORD. 
0409  C 

0410  230  OC-OEPTH-COEPTH 

041 1  TC-OC/RATE 

0412  CALL  UPDT7 

0413  C 

0414  C  RECORD  PROFILE  COORDINATES  FOR  SECOND  SUB-SEGKEHT . 

0415  C 

0416  DC  K*1 >«DEPTH 

0417  T<K+t»TC 
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04 t S  R<K*l)-0.0 

0419  c 

0420  C  UPDATE  POINTER  *K*  AND  CURRENT  DEPTH  *CDEPTH*  FOR  NEXT  SEGMENT. 
042*  C 

0422  CDEPTN-OEPTH 

0423  K«K*2 

0424  C 

0425  C  IP  "CSTIME*  IS  TRUE  BRANCH  TO  STOP  TIME  COMPUTATION  PROCEDURE. 
0420  C  PROCEDURE  CAUSES  INPUT  FROM  PROFILE  COORDINATE  INPUT  FILE  TO 
042?  C  BE  SKIPPED  AND  HILL  RETURN  TO  STATEMENT  0220.  IF  "LSTOP"  IS 

0423  C  TRUE  BRANCH  TO  COMPUTE  LAST  STOP  TIME  BEFORE  SURFACING. 

0429  C 

0430  IF< CSTIME. OR. LSTOP >  CO  TO  400 

0431  C 

0432  C  IF  OONE  GO  TO  OUTPUT  PROCEDURE.  IF  NOT  GO  TO  BEGINNING  OF  LOOP. 
04  33  C 

0434  IF<  DONE  >  CO  TO  500 

0435  GO  TO  210 

0434  C 
043?  C*— 

043S  C 

0439  C  ENO  OF  PROFILE  GENERATION  AND  UPDATE  LOOP 

0440  C 
044 1 

9442  C 

9443  C 

9444  C<<<WW<WMMW MMMMWWMMWMMWWMMII — —  I 

0443  C 

0446  C  FIRST  STOP  DEPTH  COMPUTATION  PROCEDURE 

0447  C 

0448  C  IF  STOPS  REOUIRED  BETWEEN  CURRENT  DEPTH  AND  NEXT  DESIRED  DEPTH 

0449  C  THIS  PROCEDURE  SETS  'CSTIME*  TO  TRUE  SO  APPROPRIATE  STOPS  TIMES 

0430  C  AT  PROPER  DEPTH  INCREMENTS  WILL  BE  COMPUTED.  THIS  PROCEDURE 

0431  C  EXECUTES  ONLY  ONCE  FOR  EACH  ASCENT. 

0432  C 
0433  C— 

0434  c 

0433  C  3ET  "FDEPTH*  TO  “DEPTH*  AND  COMPUTE  DEPTH  OF  FIRST  STOP  <DFS>. 

0436  C 

0437  300  CALL  FRSP7<0FS> 

0438  FDCPTH-OEPTH 

0439  C 

0460  C  IF  DEPTH  OF  FIRST  STOP  <DFS>  LES8  THAN  "DEPTH*  NO  ST0P8  NEEDED. 

0461  C  HOWEVER  IF  OEPTN  IS  0.0  THERE  IS  ALWAYS  A  STOP  AT  ’DINC*  EVEN  IF 

0462  C  IT  IS  0.0  WHICH  IT  WILL  BE  FOR  NO-OBCOHPRESSION  OIVES. 

0463  C 

0464  IF< DPS. LC .DEPTH  .AMO.  DEPTH .MB . B. 0>  GO  TO  3S0 

0463  C 

0466  C  SET  "CSTIME"  TRUE  SO  STOP  TINES  WILL  SE  COMPUTED.  SET  DEPTH  TO 

0467  C  FIRST  STOP  DEPTH  <DFS>  OR  *DINC*  WHICHEVER  IS  DEEPER. 

0468  C 

0469  DEPTHS AMAX 1 < DPS. D INC  9 

0470  CSTIME-. TRUE. 

0471  C 

0472  C  SET  *CFSTOP*  TO  FALSE  SO  WON'T  COME  BACK  UNTIL  THE  NEXT  ASCENT 

0473  C  OCCURS.  THEN  GO  SACK  TO  PROFILE  GENERATION  AND  UPDATE  LOOP. 

0474  C 

0473  360  CFST0P-. FALSE. 

0476  GO  TO  230 

0477  C 
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END  FIRST  STOP  PROCEDURE 


0479  C 
0479  C 
0480  C 
048 1  C 

9482  CM<WM<<MMMM<OM<  WMMMMMMMWMtMMMWMWWXOMW 

0433  C 
0484  C 
0489 
0488  C 

0437  C  STOP  TIME  COMPUTATION  PROCEDURE 

0488  C 

0439  C  COMPUTES  STOP  TIMES  ANO  THEN  DECREMENTS  DEPTH  8V  “DINC*  UNTIL 

0490  C  NEXT  DESIRED  DEPTH  < FDEPTH >  REACHED.  AS  LONC  AS  *CSTIHE"  IS  TRUE 

0491  C  THE  INPUT  FROM  THE  PROFILE  COORDINATE  INPUT  FILE  HILL  BE  SKIPPED. 

0492  C  WHEN  “FDEPTH*  IS  REACHED  HAVING  TAKEN  ALL  NECESSARY  DECOMPRESSION 

0493  C  STOPS  THEN  ‘CSTIME*  IS  SET  TO  FALSE.  IF  “L8T0P*  IS  TRUE  THEN  COME 

0494  C  BACK  ONE  MORE  TIME  TO  COMPUTE  THE  LAST  STOP  TIME  BEFORE  SURFACING. 

0495  C 

0498  C  PROCEDURE  ALWAYS  RETURNS  TO  STATEMENT  8220 

0497  C 

0498  CwNWWHMMWMWHWKWMtMm 

0499  C 

0300  C  IF  WITHIN  *DIHC*  OF  *FDEPTH*  A  DIFFERENT  PROCEDURE  MUST  BE  USED. 

0501  C 

0902  400  IF< < CDEPTH— FDEPTH ). LE. DINC )  GO  TO  410 

0903  C 

0904  C  ‘TIME*  IS  STOP  TIME  AT  ‘CDEPTH*  BEFORE  ASCENDING  ‘DINC*.  GO  ROUND 

0505  C  OFF  TIME  BEFORE  RETURNING  TO  PROFILE  GENERATION  ANO  UPDATE  LOOP. 

0908  C 

0507  DEPTM-COEPTH-OINC 

0503  CALL  ST I H7< TIME. DEPTHS 

0509  GO  TO  440 

091 0  C 

0511  C  IF  “CSTIME*  TRUE  THEN  WE’RE  NOT  AT  ‘FDEPTH*  YET. 

0512  C 

0313  410  IF< CSTIME)  GO  TO  420 

0514  C 

0919  C  AT  LAST  DEPTH  BEFORE  SURFACING.  SET  * FDEPTH*  TO  THE  SURFACE  ANO 

0518  C  COMPUTE  LAST  STOP  TIME.  SET  ‘LSTOP*  TO  FALSE  SO  WON'T  COME  BACK 

05 t 7  C  AGAIN  WHEN  SURFACE  REACHED.  ‘CSTIME*  SET  TO  TRUE  SO  0.0  NIN  STOP 

0918  C  TIMES  WILL  BE  RECORDED  FOR  LATER  OUTPUT.  ‘DEPTH*  DECREMENTED  TO 

0519  C  NEXT  SHALLOWER  STOP  DEPTH. 

0520  C 

0321  FDEPTH-0.0 

0322  CALL  STIH7< TIME, FDEPTH) 

0323  DEPTN-CDEPTH-OIMC 

0324  C8T IMS* . TRUE . 

0329  LSTOP* . FALSE  < 

0328  GO  TO  440 

0327  C 

0328  C  LAST  STOPT1HE  COMPUTED.  LAST  DEPTH  IS  ■ FDEPTH * . 

0329  C 

0330  420  DEPTH-FDEPTH 

0331  CALL  STIH7< TIME* FDEPTH) 

0332  C 

0333  C  LAST  TIME  THROUGH.  SET  *CSTIHS*  TO  FALSE  SO  WON'T  CORE  BACK  AGAIN. 

0334  C 

0333  CSTIME-. FALSE. 

0338  C 

0337  C  ROUND  UP  STOP  TIME  TO  NEAREST  0.9  MINUTES.  MINIMUM  TIME  1  NIN.  FOR 


0939  C  NON-ZERO  STOP  TINES. 

0539  C 

0940  440  IF<  TIME . CT . 0 . 0  >  TIME-MAXI < < TIME+0 . 9 >, t . 0  ) 

0941  C 

0942  C  RETURN  TO  PROFILE  GENERATION  A NO  UPDATE  LOOP. 

0943  C 

0944  GO  TO  220 

0545  C 
0546 
054?  C 

0548  C  END  STOP  TINE  PROCEDURE 

0549  C 

0550  CMMMMtMMnMmnMWMmMMMnnMMnWMWMMMMMMUmMM 

0991  C 

0592  C 

0953 

0594  C 

0555  C  PROFILE  RECORDING  PROCEDURE 

0956  C 

0997  C  RECORDS  PROFILES  IN  ARRAY  *IPRO*  FOR  LATER  PRINTOUT  IN  U.S.  NAVY 

0559  C  FORMAT.  ‘IPRO*  HOLDS  'HAXPRO*  PROFILES  AND  WHEN  IT  IS  FULL  THE 

0599  C  PROGRAM  BRANCHES  TO  THE  PRINTOUT  PROCEDURE  TO  PRINT  A  PAGE  OF 

0560  C  TABLES. 

0561  C 
0562  C— 

0563  C 

0564  C  IF  FIRST  STOP  DEPTH  GREATER  THAN  THAT  ALLOWED  BY  OUTPUT  FORMAT 

0969  C  RECORDING  PROCEDURE.  IF  NOT  DECREMENT  *K*  TO  GET  TO  LAST  POSITION 

0566  C  RECOROED  IN  PROFILE  ARRAY. 

0567  C 

3563  500  IF< INT<D<6 ) ) . ST .D3TQFS< I  3  J  GO  TO  560 

0569  K-K-t 

0570  C 

0571  C  COMPUTE  ZERO  TIME  VALUES  FROM  ELAPSED  TIME  VALUES. 

0972  C 

0573  2T<  1  3-0. 0 

0574  DO  510  1-2,  X 

0575  510  ZT<  I  >»ZT<I-1  >4T<  I  J 

0576  C 

0577  C  IF  TOTAL  DIVE  TIME  EXCEEOS  MAXIMUM,  SET  *NORCRO*  TO  TRUE.  ALL 

0578  C  SUBSEQUENT  PROFILES  WHERE  MAXIMUM  TIME  EXCEEDED  WILL  NOT  BE 

0979  C  RECORDED . 

0980  C 

0981  !F<  ZT< K> . LE . TDTHAX >  GO  TO  513 

0982  IF<NORCRD>  GO  TO  560 

0583  NORCRD- . TRUE . 

0584  GO  TO  5t5 

0985  513  NORCRD-. FALSE. 

0986  C 

0987  C  ALWAYS  RECORD  FIRST  PROFILE  COMPUTED  BY  THE  PROGRAM  <NPR0-0)  AND 

0988  C  PROFILES  WHERE  THE  DIVE  DEPTH  IS  DIFFERENT  FROM  THE  PREVIOUS  ONE. 

0989  C 

0990  919  IF< HPRO.EQ . 0 >  GO  TO  920 

0991  !P< !NT<0<3 >>.NS. IPRO< 1 ,MPRO) )  GO  TO  520 

0992  C 

0993  C  00  NOT  RECORD  PROFILES  IF  THE  BOTTOM  TIME  IB  LESS  THAN  OR  EQUAL  TO 

0994  C  THAT  OF  THE  PREVIOUSLY  RECORDED  PROFILE.  OTHERWISE  RECORD  ALL 

0995  C  PROFILES  REQUIRING  DECOMPRESSION  STOPS. 

0996  C 

0997  IF<  INT<ZT<5) ).LS .  !PRO<  2,  NPRO  ))  GO  TO  560 
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IF< D< 7 ) ■ CT .DINC  .Oft.  T<7).NE.0.  0>  CO  TO  320 


0390 
0399  C 
0600  C 
0601  C 
0602  C 
0603 
0604  C 
0603  C 
0606  C 
0607  320 

0603  C 
0609  C 
0610  C 
061  1  C 
0612  340 

0613 

0614 
0615 
0616 
0617 
0619  C 
0619  C 
0620  C 
0621  C 
0622 
0623 
0624 
0623 
0626 
0627 
0629 
0629  C 
0630  C 
0631  C 
0632 
0633 
0634  C 
0633  C 
0636  C 
0637  C 
0638 
0639  C 
0640  C 
0641  C 
0642 
0643  C 
0644  C 
0645  C 
0646  C 
0647 
0648 
0649  C 
0630  C 
0631  C 
0632  C 
0633 

0634  343 

0633 
0636  C 
0637  C 


OVERWRITE  RRSVI0U8LY  RECORDED  NO-O  PROFILES  UNTIL  FIRST 
DECOMPRESSION  PROFILE  ENCOUNTERED.  DON'T  INCREHEHT  ‘NPRO*  VET. 

CO  TO  340 

EVERY  RECORDED  PROFILE  INCREHENTS  *MPRO“  UNTIL  *IPRO“  FULL 
NPRO»NPRO+l 

CONFUTE  ASCENT  TINE  <AST!H).  ROUND  TO  NEAREST  SECOND.  RECORD 
HINUTES.  TENS  ANO  UNITS  OF  SECONDS  SEPERATELY  INTO  ARRAY  'IPRO*. 

ASTIM*ZT< K >-ZT< 3>*<  .3/60.  i 
THIN«INT< ASTIH) 

TSEC*< ASTIH-TNIN )»60 . 

IPRO<  NST0P*6 , NPRO  >«THIN 
IPRO<  NSTOP*7,NPRO  >“TSEC/1  0 . 0 

IPRO<  N3TOP*S . NPRO  >- INT< TSEC  >-IPRO( NSTOPf? , NPRO  >*1 0 

COMPUTE  TIME  TO  THE  FIRST  STOP  <TFS>  WHICH  WILL  EQUAL  • ASTIH*  FOR 
NO-D  DIVES.  ROUND  OFF  AND  RECORD  THE  SANE  AS  FOR  ‘ASTIH*  ABOVE. 

TFS-T<6>*< .3/60. > 

IF<  INTC  T<  7  >  ) .  EO .  0  .AND.  0<  6>.E0  .DINC)  TFS-ASTIH 
THIN-INT<TFS> 

TSEC*<  TFS-TNIN )«60 . 

IPRO<3,NPRO>-THIN 
IPRO<  4 , NPRO  5- TSEC /I 0 . 

IPROt  3 .  NPRO  >■  INT<  TSEC  >-IPRO<  4 .  NPRO  >*1  0 

RECORO  DEPTH  OF  DIVE  AND  80TT0N  TIME  INTO  *IPRO*. 

IPRO<  1  .NPRO  >-D<3> 

IPRO<  2 . NPRO >-ZT<3> 

*IJ*  POINTS  TO  POSITION  OF  THE  FIRST  STOP  IN  *IPRO*  AND  *D<6>*  IS 
THE  DEPTH  OF  THE  FIRST  STOF. 

I  J-NST0P*6-INT<  D<  6  )/DINC  > 

THE  NUMBER  OF  STOPS  18  STORED  IN  THE  LAST  POSITION  IN  »IPRO*. 
1PR0<  NST0P+9.MPR0  )-INT<  D<  6  >/DINC  > 

* I8T0P*  INITIALLY  SET  TO  OSPTH  OF  FIRST  STOF  IN  PROFILE  DEPTH 
ARRAY  *0*.  *NK*  POINTS  TO  DEPTH  OP  STOP  RECORDED  IN  ARRAY  *!PRO*. 

IST0P-IHT<0<6>> 

RECORD  STOF  TIMES  IMTO  *IFRO*.  *NK+f  POINTS  TO  ARRAY  POSITION 
CONTAINING  STOP  TINE. 

DO  338  !•! J,NSTOP*S 
IPRO<l.HPRO)-lPRO<I.NPRO>*T<NK+t  > 

NK-NK+2 

IF  THE  NEXT  RECORDED  DEPTH  IS  STIU  THE  SAME  A8  *!ST0P*  ADD  THE 


A2-11 


ossa 

C 

0039 

0060 

C 

0061 

330 

0662 

C 

0603 

C 

0664 

C 

0063 

C 

0666 

C 

0067 

C 

0666 

0669 

360 

0670 

C 

067 1 

C 

0672 

c 

0673 

C 

0674 

0673 

0676 

370 

0677 

C 

0679 

C 

0679 

ooao 

C 

0681 

C 

0682 

c*n*> 

0683 

c 

0084 

c 

0683 

C 

0686 

C»n». 

0687 

c 

0638 

c 

0689 

C*n*< 

0690 

C 

0691 

C 

0692 

C 

0693 

C 

0694 

c 

0093 

c****< 

0696 

C 

0697 

c 

0698 

c 

0699 

c 

0700 

c 

0701 

0702 

0703 

0704 

0703 

380 

0706 

c 

0707 

c 

0708 

c 

0709 

0710 

390 

0711 

C 

0712 

C 

0713 

0714 

0713 

0716 

0717 

C 

STOP  Tins  TO  THE  STOP  TIME  ALREADY  RECORDED  IM  *IPROa. 

IF< I  NT(  D(  NK)  ) .  EG  .  I STOP  >  GO  TO  S4S 
I STOP* I STOP -0 INC 

SPACE  PAST  THE  NEXT  RECORD  WHICH  IS  HOT  HEEDED  FOR  THIS  PROGRAH. 
THIS  HAIHTAIHS  IHPUT  FILE  COMPATIBILITY  WITH  PROGRAM  DHDB7 .  READ 
IH  VALUE  OF  'MORE*  < YES  OR  NO>  TO  SPECIFY  IF  AHOTHER  PROFILE  WILL 
FOLLOW. 

READ<  LB> 

READ<  LB . 22  >  MORE 

IF  * IPRO"  BUFFER  FULL  SET  “FULBUF*  TO  TRUE  AMD  PRINTOUT  A  FACE  OF 
TABLES  BEFORE  COHTIHUIHC. 

FULBUF*. FALSE. 

IF< NPRO . EQ .< MAXPRO+I >>  FULBUF* . TRUE . 

IF< FULBUF )  GO  TO  380 

IF  ANOTHER  PROFILE  FOLLOWS  GO  BEGIH  READING  IT  IH. 
IF<M0RE.E0.2HYE>  GO  TO  200 


END  PROFILE  RECORDING  PROCEDURE 


TABLE  PRINTOUT  PROCEDURE 

PRINTS  OUT  ONE  PAGE  OR  A  PARTIAL  PAGE<  LAST  PACE  ONLY  >  OF  TABLES 


VALUE  OF  •ICOHC"  DEPENDS  OH  WHETHER  CONSTANT  FRACTION  OF  INERT  CAS 
OR  CONSTANT  P02  USED  FOR  TABLES  AND  GETS  PROPER  LABELS  FROM  THE 
THE  CAS  LABEL  ARRAY  'CONLBL* . 

C0NC-P02 

ICONC-1 

IF<  CP02 )  GO  TO  390 
COHC*<  1-FN2>*1 00. 

ICONC-2 

SET  UP  CORRECT  LABELS  FOR  DEPTH  UN1T8  <ULBL>  FOR  PRINTOUT. 
ULBL-UFEET 

IF< METRIC >  ULBL-UMETER 
PRINTOUT  PAGE  HEADER 
WRITB<LP.42>  DAYTIH, HPIF , ULBL 

WR I TB< LP, 4B  >COHC,< COHLBL< ICOHC, ILBL  >, ILBL* 1 ,2), I GAS . IRATE , ULBL , 
IRATE. ULBL 

WRITE<LP.43>  ULBL. ULBL, DSTOPS 
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071$ 

071$ 

0720 

0721 

0722 

0723 

0724 

0723 

0726 

0727 

072$ 

072$ 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0733 

073$ 

074  0 

0741 

0742 

0743 

0744 

0743 

0746 

0747 

0743 

074$ 

0730 

0731 

0732 

0733 

0734 

0733 

0736 

0737 

073$ 

073$ 

0760 

0761 

0762 

0763 

0764 

0763 

0766 

0767 

0763 

076$ 

0770 

0771 

0772 

0773 

0774 

0773 

0776 

0777 


C 

C  * ICHNG*  USED  TO  DETERMINE  IF  DEPTH  OF  PROFILES  HAS  CHANGED.  IT 'S 
C  INITIALLY  SET  TO  OEPTH  OF  FIRST  PROFILE  CURRENTLY  IN  *IPRC”.  THE 

C  MAXIMUM  VALUE  OF  aNPROa  FOR  PRINTOUT  IS  -"MAXPRO*. 

C 

ICHNG- IPROC 1.1 ) 

IP< FULBUF)  HPRO-MAXPRO 

C 

C  BEGINNING  OF  LOOP  UH1CH  PRINTS  OUT  PACE  OF  PROFILES 
C 

00  670  I-1.NPRO 

C 

C  IF  DEPTH  OF  PROFILE  HASN'T  CHANGED  SKIP  DELIMITER  LINE  PRINTOUT. 

C 

!F< ICHHC.EO . IPMO< 1.1))  GO  TO  630 
C 

C  RESET  'ICHNG*  TO  NEXT  PROFILE  DEPTH.  PRINT  DELIMITER  LINE. 

C 

ICHNG-IPRO< 1.1) 

UR I TEC LP. 46  > 

GO  TO  640 

630  UR  I  TEC  LP .  44  ) 

C 

C  “NLINE*  SELECTS  PROPER  UR1TE  STATEMENT  FOR  HUMBER  OF  STOPS. 

C  MJ-  POINTS  TO  POSITION  OF  FIRST  STOP  TIME  IN  -tPRO"  ARR«Y . 

C 

640  NLINE-IPROCNSTOP+S.I) 

IJ-NSTOP-fG-NLINE 

CO  TO  C630, 631. 632. 6S3. 634. 653. $36,337. 63$. $5$. 660, 661. 

*  662. 663, 664). NLINE 

C 

C  URITE  OUT  A  SINGLE  PROFILE  LINE  IN  THE  CURRENT  PACE  OF  TABLES. 

C 

630  URITEC LP, 30  )  <  IPROC  J,  I  ).  J-I ,3),C  IPROC  J,  I  >.  J-I  J.NSTOP+8 ) 

GO  TO  670 

631  URITECLP.3I  )  C  IPROC  J,  I  >.  d-1 , 3  >,C  IPROC  J.  I  >.  J-I  J,NST0P«-8  > 

GO  TO  670 

632  URITEC  LP,  32)  C  IPROC  J.  I  ).  J-1 . 3  >,  C  IPROC  J,  I  ).  J-I  J.NSTOP-8  > 

GO  TO  670 

633  URITEC LP.S3)  C  IPROC  J,  I  >.  J-1  ,3 >,C  IPROC  J,  I  >.  J-I  J.NSTOP+3  ) 

CO  TO  670 

634  URITEC LP.34  )  C  IPROC  J.  I  ).  J-I  .3),  C  IPROC  J,  I  ),  J-I  J,MSTOP*S  ) 

GO  TO  670 

633  URITEC  LP.33)  C  IPROC  J,  I  ).  J-I  ,3  >,C  IPROC  J,  I  ),  J-I  J.NSTOP-8  > 

GO  TO  670 

636  URITEC LP, 36)  C IPROC  J,I),J-1,3),C IPROC  J, I ) , J- 1 J , HSTOP+3 ) 

GO  TO  670 

637  URITEC  LP, 37)  <  IPROC  J,  I  ),  J-I  ,3>,C  IPROC  J,  I  ),  J-I  J.NSTOP+S) 

CO  TO  670 

638  URITEC LP.SB  )  C  IPROC  J.  I  ).  4-1 .3),  C  IPROC  J,  I  ).  J-I  J.N8T0P+8  > 

CO  TO  670 

63$  URITEC  LP ,  5$  )  C1PROC  J,  I  ).  J-1 ,3),C  IPROC  J,  I  ),  J-I  J,NST0P*8> 

GOTO  870 

660  URITECLP.60)  C  IPROC  J.  I  ) ,  J-I , 3), C  IPROC  J,  I  ),  J-I  J.N0T0P+8 > 

CO  TO  670 

661  URITEC  LP,  61  >  C  IPROC  J,  I  ) ,  J-1 , 3  >,  C  IPROC  J,  I  ),  J-I  J,  N8T0P*8  > 

GO  TO  670 

662  UR  I  TEC  LP ,  62 )  C  IPROC  J,  I  ) .  J- 1 , 3  ) ,  C  IPROC  J,  I  ),  J-I  J ,  N8T0P*8  > 

GO  TO  670 

663  URITECLP.63)  C  IPROC  J,  I  >,  J-1 .3 >.C  IPROC  J,  I  >,  J-I  J.N8T0P*8 > 
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0778 

0778  684 

0780  670 

0781  C 
0782  C 
0783  C 
0784  C 
0783 
0786 
0787 

0788  680 

0738  C 
0780  C 
0781  C 
0782 
0783  C 
0794  C 
0793  C 
0796 
0797 
0798 
0799  C 
0800  C 
0801  C 
0802  690 

0803  C 
3804  C 
0803  C 
0806 
0807 
08  08 
0809 
0810 


CO  TO  670 

WRITE<LP,64>  <  IPRO<  J, 1  >.  J-1 ,3>,<  IPRO<  J.  I  >,  J»I J, N9T0P*8  > 
CONTINUE 

MOVE  PROFILE  IN  LOST  POSITION  IN  *!PRO"  TO  THE  FIRST  POSITION. 
FILL  REST  OF  MPRC*  WITH  ZEROS. 

00  680  1-1 , MAX PR 0*1 
DO  680  J»1,N3T0P*5 

IPRO<  J,  I  >*0  * 

IF<  I  .EQ.  1  5  IPRO<  <lj  1  >-IPRO<  J.NAXPRO-M  > 

DONE  WITH  PACE  PRINTOUT.  NOW  ONLV  1  PROFILE  LEFT  IN  *IPRO*. 
NPRO-1 

IF  HORE  PROFILES  FOLLOW  EXECUTE  FORM  FEED  AND  CO  READ  THEN  IN. 

IF<  MORE . HE . 2HYE  >  CO  TO  690 
URITE< LP , 47  > 

CO  TO  200 

IF  "IPRO*  WAS  FULL  THERE'S  ONE  HORE  PROFILE  TO  PRINT  OUT. 

IF< FULBUF)  CO  TO  370 

PRINT  OUT  DELIHITER  LINE  .FROM  FEED  LINE  PRINTER.  STOP. 

WR I TE<  LP , 46 ) 

MRITE< LP.473 

STOP 

END 

ENDS 
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ANNEX  B 

DECOMPRESSION  MODEL 
SUBROUTINE  LISTINGS 


ANNEX  B-l 


SUBROUTINE  BLOC7 
LISTING 


&6L0C7  T-00004  15  ON  CRC0012  USING  00010  BLKS  R-0000 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0003 
0005 
001  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0013 
0019 
0020 
0  021 
0022 
0023 
0024 
0  025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0  042 
0043 
0044 
0043 
0046 
0047 
0048 
0049 
0030 
0031 
0  032 
0033 
0034 
0033 
0036 
0037 


FTN4 

C 

r 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

coo# 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


BLOCK  DATA,  BL0C7  24  SEPT  32  VER  1.1 

INITIALIZES  DATA  IN  MOOEL  COMMON  BLOCKS  “PARAM*  AND  "BLDVL". 


099909990909999999999999999990909909 

» 

WRITTEN  BT  * 

8 

COR  EDUARD  D.  THALNANN  <  MO  USN  9 

9 

9 

U.S.  HAW  EXPERIMENTAL  DIVING  9 
UNIT  9 

PANAMA  CITY. FLORIDA  32407  9 

9 

99  90 99 99 99 99 90 99 99 90 99 90 99 99 98999999 

>••#«•••• 9999  ••*•••  •##•••  •#•*#***•##«’ 

*• »»«* 

•  VARIABLES  • 


AMBA02  AMBIENT -ARTERIAL  OXYGEN  GRADIENT  ( FSU > 

HLFTH  COMPARTMENT  HALFTIMES  <MIN> 

I AO  INSTANTANEOUS  ASCENT  OEPTH  (FSU  OR  MSU ) 

M  COMPARTMENT  MAXIMUM  CAS  TENSION  ARRAY  1 FSU ) 

NT I S3  NUMBER  OF  HALFTIME  COMPARTMENTS  (5  MAX,) 

P  COMPARTMENT  CAS  TENSION  ARRAY  <.  FSU  ) 

PAC02  ARTERIAL  C02  PARTIAL  PRESSURE  (FSU) 

PBOVP  GAS  PHASE  OVERPRESSURE  (FSH) 

PH20  PARTIAL  PRESSURE  OF  UATER  VAPOR  (FSU) 

PVC02  VENOUS  C02  PARTIAL  PRESSURE  (FSU) 

PV02  VENOUS  02  PARTIAL  PRESSURE  (FSU) 

SDR  SATURATION-DESATURATION  HALFTIME  RATIO 


NOTE:  FOR  PARTIAL  PRESSURES  WHICH  ARE  IN  FSU.  33  FSU  -  1  ATA. 


•9999999I9M99 99 99999999 99 9990900#0##990<MMMMM9##09##909****99 

COMMONS MOATAXTC .OC.CDEPTH, RATE , CP02.FH2, P02 , DINC.CF 
COHHON/PARAH/m  9 , 3  0  > , P<  9  > , HLFTN<  S  > , NT  I SS ,  SDR<  9  ) ,  I  AD 
C0HH0N/BLDVL/PAC02 , PN20 , PVC02 , PV02 , AMBA02 , PBOVP 
REAL  N 

COMMOH  BLOCK  "PARAM* . 

DATA  M,P, HLFTH, NTIS8, SDR. IAD 

•/  279*0.,  3. , 10. ,20. ,40. .SO. ,120. . 160. ,200. ,240. ,9,9*1 . 0, 0/ 

COMMOH  BLOCK  "BLDVL" 

DATA  PAC02 , PH20 . PVC02 , P V02 , AMBA02 , PBOVP/ 1 .3, 0 . 0, 2 . 3,2 . 0, 0 . 0, 0 
END 
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.  0/ 


t: 
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ANNEX  3-2 

SDB ROUTINE  UPDT7 
EXPONENTIAL-LINEAR  VERSION 
LISTING 


1UPDT7  T-00004  IS  ON  CR00012  US  INC  001  OS  BLKS  R-0000 
0001  FTN4 

0002  SUBROUTINE  UPDT7,  24  SEFT  02  VCR  t.2 

0003  C 
0004  C 

0003  C  EXPONENT  I  IN. -LINEAR  VERSION 

9006  C 

0007  C  UPDATES  TNE  TISSUE  INERT  CAS  TENSIONS  IN  ARRAY  ‘P*  OVER  A  SPECIFIC 

0008  C  TIME  INTERVAL  *TC*  FOR  A  SPECIFIED  DEPTH  CHAHGE  "DC*.  A  VALUE  OF 

0009  C  0.0  IS  LEGAL  FOR  BOTH  *TC*  AND  "DC*  .  ASSUMES  CAS  UPTAKE  AND 

0010  C  ELIMINATION  IS  EXPONENTIAL  UNTIL  THE  TOTAL  TISSUE  CAS  TENSION 

0011  C  EXCEEDS  AMBIENT  BY  TNE  CAS  PHASE  OVERPRESSURE  *PBOVP* .  AT  THIS 
0012  C  POINT  CAS  ELIMINATION  BECOMES  LINEAR.  PROVISION  IS  HADE  FOR 

0013  C  DIFFERENT  EXPONENTIAL  TIME  CONSTANTS  FOR  UPTAKE  AND  ELIMINATION. 

0014  C  THE  TRANSITION  BETWEEN  THE  TWO  TIME  CONSTANTS  IS  ALWAYS  MADE  AT  A 

0013  C  MAXIMUM  OR  MINIMUM  SO  THERE  IS  HO  DISCONTINUITY  IN  THE  SLOPE  OF 

0016  C  THE  EXPONENTIAL  FUNCTION. 

0017  C 
001B  C 

0019  C  BOB  OB  08  SO  OB  OB  OB  OB 00  BO  OB 00 08 8000080000 


0020  C  B  t 

0021  C  B  WRITTEN  BY  B 

0022  C  B  B 

0023  C  B  COR  COWARD  D.  TMALHANN  < MC >  USN  B 

0024  C  B  B 

0023  C  B  B 

0026  C  B  U.S.  NAVY  EXPERIMENTAL  DIVING  B 

0027  C  B  UNIT  B 

0028  C  B  PANAMA  CITY. FLORIDA  32407  B 

9029  C  B  B 

0030  C  BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

0031  C 

0032  C 

0033  cobabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbobbbbbbbbbbbbbbbboobbboa 

0034  C  **•••«••*«*•• 

0033  C  •  VARIABLES  * 


0037  C 


003B  C  A  INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 

0039  C  AMBA02  AMBIENT-ARTERIAL  OXYGEN  GRADIENT  <FSW> 

0040  C  B  INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 

0041  C  C  INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 

0042  c  CDEPTH  CURRENT  DEPTH  (  FSW  OR  NSW) 

0043  C  CF  METRIC  CONVERSION  FACTOR 

0044  c  CP02  CONSTANT  PARTIAL  PRESSSURE  02? 

0043  C  0  INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 

0046  C  DC  DEPTH  CHANCE  <FSW  OR  NSW) 

0047  C  DESAT  TISSUE  DE SATURATING? 

0048  C  DINC  STOP  DEPTH  INCREMENTS  (NSW  OR  FSW> 

0049  C  DY  DERIVITIVE  OF  NEWTON-RAPHSON  NULL  VARIABLE 

0030  C  EXPN  NATURAL  LOG  BASE  E  RAISED  TO  THE  *K«T*  POWER 

0051  C  FN2  INERT  CAS  FRACTION 

0032  C  HLFTN  TISSUE  HALFTIMES  (MIN) 

0033  C  I AO  INSTANTANEOUS  ASCENT  DEPTH  (PSW  OR  NSW) 

0054  C  14  DEPTH  (ROW)  SUBSCRIPT  FOR  ARRAY  *H* 

0033  C  IPRNT  CAUSES  PRINTOUT  DURINC  NEWTON-RAPHSON  ITERATION  IF  1 

0036  C  K  EXPONENTIAL  TIME  CONSTANT  (1/HIN) 

0037  C  KDSAT  TIME  CONSTANT  FOR  DESATURATINC  TISSUES  (1/HIN) 

82-1 


i 


oosa  c 
0059  c 
ooto  c 
0061  c 

0062  C 
0063  C 
0064  C 
006S  C 
0066  C 
0067  C 
0068  C 
0069  C 
0070  C 
0071  C 
0072  C 
0073  C 
0074  C 
0075  C 
0076  C 
0077  C 
0078  C 
0079  C 
0080  C 
0031  C 
0082  C 
0083  C 
0084  C 
0033  C 
0086  C 
0087  C 
0638  C 
0039  C 
0090  c 
0091  C 
0092  C 
0093  C 
0094  C 
0093  C 
0096  C 
0097  C 
0098  C« 
0099  C 
0100  C« 
0101  C 
01 02  C 
01 03  C 
01 04  C 
01 03  C 
01 06  C 
0107  CO 
0108  C 
01 09  C 
0110  C 
01  11  C 
01  12  C 
01  13  C 
01  14 
01  13  C 
01  18  C 
0117  C 


KSAT 

II 

NITS 

NTISS 

P 

PAC02 

pans 

PAH2 

PA02 

PBOVP 

PM20 

P02 

PTISS 

PVC02 

PVN2 

PV02 

PVSAT 

RAMS 

RATE 

RZHRT 

R02 

SHCHK 

SDR 

T 

T I 

TC 

TERROR 

TEXP 

ri 

TLIN 

TNCDE 

TXCVER 

VALIT 

V 

Y1 


TINE  CONSTANT  FOR  SATURATING  TISSUES  (IXMIN) 
TI8SUE  MAXIMUM  GAS  TENSION  ARRAY  <  FSU > 


NUASER  OF  TINES  NEWTON-RAPHSON  ITERATION  PERFORMED 
HUMBER  OF  HALFTIME  TIS8UES  < 9  MAX . > 


TISSUE  CAS  TENSION  ARRAY  <FSU> 


ARTERIAL  C02  PARTIAL  PRESSURE  (FSU) 


AMBIENT  PRESSURE  < FSU > 


ARTERIAL  INERT  CAS  TENSION  <FSU) 

ARTERIAL  02  TENSION  (FSU) 

CAS  PHASE  OVERPRESSURE  <F$N> 

PARTIAL  PRESSURE  OF  HATER  VAPOR  (FSU) 

INSPIRED  OXYGEN  PARTIAL  PRESSURE  (ATA) 

TISSUE  DISSOLVED  INERT  CAS  TENSION  (FSU) 

VENOUS  C02  PARTIAL  PRESSURE  (FSU) 

VENOUS  INERT  GAS  TENSION  (FSU) 

VENOUS  02  PARTIAL  PRESSURE  < FSU > 

INERT  CAS  TENSION  NEEDED  FOR  VENOUS  SATURATION  (FSU) 
RATE  OF  AMBIENT  PRESSURE  CHANCE  (FSU/MIN) 

RATE  OF  DEPTH  CHANCE  (FSU  OR  MSU/MIN) 

RATE  OF  INSPIRED  INERT  CAS  TENSION  CHANCE  (FSU<Y1IN) 
RATE  OF  INSPIRED  02  TENSION  CNANCE  (FSU/NIN) 

VARIABLE  USED  TO  CHECK  FOR  SIGN  CHANCE 
SATURATIOH-OESATURAT ION  HALFTIME  RATIO 
TINE  (MIN) 


TRIAL  TIME  IN  NEVTON-RAFHSON  ITERATION  (MIN) 

TINE  CHANCE  DURING  ASCENT  (MIN) 

MAXIMUM  TIME  ERROR  IN  NEWTON-RAPHSON  ITERATION  (MIN) 
TIME  FOR  EXPONENTIAL  UPDATE  ( HlN ) 

TIME  INTERVAL  FOR  LI NEAR -EXPONENTIAL  CROSSOVER  (MIN) 
TIME  FOR  LINEAR  UPDATE  (MIN) 

TIME  OF  MINIMUM  OR  MAXIMUM  TISSUE  TENSION  (MIN) 

TIME  TO  CROSSOVER  TO  OTHER  GAS  TRANSPORT  MOOE  (MIN) 
ARRAY  FOR  STORING  NEWTON-* APMSON  VALUES 
HEUTOH-RAPHSOH  NULL  VARIABLE 
TRIAL  VALUE  OF  *Y* 


MOTE:  FOR  PARTIAL  PRESSURES  WHICH  ARE  IN  FSU.  33  FSU-1  ATA. 


•IMMHMMMHIMIHHMMliHMHHItHMIMHI 
MNMMHHHHNNHHHHUHIIItHUHHHMM 
•  SUBROUTINES  REQUIRED  « 


NONE 

NHIMMtMHMMNMMMHNMHMHHHNIlHMMMHHItMWM 
MODEL  INPUT  VARIABLES 

THESE  ARE  THE  ONLY  VARIABLES  SENT  FROM  THE  MAIN  PROGRAM  TO  THE 
MODEL  SUBROUTINES.  THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL 


COMMON /MOATA/  TC , DC , CDEPTH » RATE , CP02 ,FN2,P02,DINC,CF 
MODEL  COMMON 

THESE  VARIABLES  ARE  SENT  BETWEEN  HOOEL  SUBROUTINES  ONLY. 


OHS  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

OHS  C 

0120  COMMON/PARAM/H<  S,  30  > .  P<  9  > .  HLFTM<  9  > ,  NT  ISS ,  SDR<  9  ) ,  I  AD 

0121  COMMON/'BLDVL/'PAC02 ,  PH20 .  PVC02 , P V02 ,  AMBA02 ,  PBOVP 

0122  C 
0123  C 

0124  LOGICAL  CP02.DCSAT 

0123  REAL  H.K, KSAT.KDSAT, VALIT<  4.10) 

012b  C 

0127  1  FORNAT(/«M  OX*NEWTQN  RAPNSON  ITERATION*/'/' 

0128  b4X"HLFTM*2X*CEDPTH*3X*TC*8X*PTISS*8X“RATE"8X*RINRT*7X»PAN2" 

0129  *7X*PVSAT  *9X*A* 1 1X*B* 1 1X“C“/4X, 14. 4X, 14, 9< F 1 1 .8. IX >// 

0130  <9X*T*17X*Y*14X*0Y*13X*  Y/OY"/’1  0<  4F16 . 7/  W///  > 

0131  C 

0132  CMBBBBBBBBBBBBBBMMMBBBBMBBBBBBMMMmMBBBBBBBBBBBBMBBBBBBBBBBBB* 

0133  C 

0134  C  INITIALIZATION  PROCEDURE 

0135  C 

01 3b  C  SET  1PRNT-1  IF  ITERATION  VALUES  ALWAYS  WANTED, OTHERWISE  LEAVE  AS 
0137  C  0.  ITERATION  VALUES  ALWAYS  PRINTED  IF  ERROR  LIMITS  EXCEEDED. 

0138  C 
0139 
0140  C 

0141  IPRHT-0 

0142  C 

0143  C  IF  TINE  INTERVAL  *TC*  IS  0  NO  UPDATE  NEEDED. 

0144  C 

0145  IF<  TC . EQ . 0. 0 )  RETURN 

0146  C 

0147  C  RATES  OF  AMBIENT  PRESSURE  CHANCE  ALWAYS  IN  FEET/MIN,  CONVERT 

0148  C  METRIC  RATES  TO  FEET/Hf M .  SET  RATE  TO  0  IF  NO  DEPTH  CHANCE. 

0149  C  COMPUTE  INITIAL  AMBIENT  PRESSURE. 

0130  C 

0131  RAHR-CFbRATE 

0132  1F<DC.EB.0. >  RAHS-0. 

0133  PAMB-COEPTMbCF«33 

0134  C 

0133  C  FOLLOWING  VARIABLES  DEPEND  ON  WHETHER  CONSTANT  OXYGEN  PARTIAL 

0136  C  PRESSURE  OF  CONSTANT  INERT  CAS  FRACTION  USED.  LOGICAL  VARIABLE 

0137  C  *CP02*  IS  TRUE  FOR  CONSTANT  P02  OTHERWISE  IT'S  FALSE. 

0138  C 

0139  IF  <  CP02  >  GO  TO  30 

0160  PA02-<  PANS  “PH  20  >•<  1 -FN2  T-ANBA02 

0161  RINRT-PM2*RAHB 

0162  R02-<  1  -FN2  >«4»  AMD 

0163  CO  TO  40 

0164  30  PA02«P02*33*< I . 0-PH20/PAMB >-AMB A02 

0163  RINRT-RAMB 

0166  R02«0.0 

0167  40  CONTINUE 

0168  C 

0169  CBBoooB*OBBaoooBOBOBBBOBOBOBBOBBOOBBOBOBOaoaaaBOOBB«BoaBMB*a.B*BM*mBOB 

0170  C 

0171  C  END  INITIALIZATION  PROCEDURE 

0172  C 

01 73  CBBOB<BBBBBBBAABAAABAAABBAA4ABB<<BA<4BABBBABA44BABBB<BBBBBBBBBBBBBBBBBBB 

0174  C 
0173  C 

0 1 76  CHHHIMIHMHNNHMHHMNMHNHNHHMMHMMHHHMMMIH 

0177  C 
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TISSUE  UPDATE  LOOP 


0178 

0179 

0180 

0131 

0182 

0133 

0134 

0103 

0186 

0167 

0133 

0189 

0196 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0203 

0206 

0207 

0203 

3229 

0210 

0211 

0212 

0213 

0214 

0213 

0216 

0217 

0213 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 


C 

c 

C  EXECUTE  LOOP  FOR  ALL  *HTISS*  TISSUES. 

C 

C00000008000000000000000 0800 00 08 00 00 080008 80 00 08 080000 8000000000000001 

c 

C  COMPUTE  TINE  CONSTANTS  FOR  SATURATING  AND  DE SATURATING  TISSUES 

C  < "KSAT*  AND  "KDSAT* ) •  INITIALIZE  ARTERIAL  AND  VENOUS  SATURATION 

C  INERT  GAS  TENSIONS. 


C 

DO  300  1-1 , NTISS 
KSAT-ALOC<  2 . 0  >/HLFTM< I  ) 

KDSAT-KSAT*SOR< I > 

PAN2-PAMB-<PA02*PAC02+PH20 > 

PVSAT-PAM8-<PV02*PVC02*PH20> 

C 

C  INITIALIZE  TISSUE  TENSION  TO  DEFAULT  VALUE. 

C 

PTISS-P< I) 

C 

C  IF  TISSUE  TENSION  IN1TIALLV  GREATER  THAN  "PVSAT"  GO  TO  LINEAR 
C  UPDATE  PROCEDURE . 

C 

IF  <  PT I SS . CT . < PVSAT*PSOVP ) )  GO  TO  300 
C 

C 

C  EXPONENTIAL  NODE  TINE  COMPUTATION  PROCEDURE 

C 

C  THIS  PROCEDURE  CHECKS  TO  SEE  IF  INITIALLY  EXPONENTIALLY  SATURATING 

C  OR  DESATURAT1NC  TISSUES  WILL  GO  THROUGH  A  MINIMUM  OR  MAXIMUM 

C  1  NODE >  DURING  THE  TINE  INTERVAL  "TC"  .  IF  A  NODE  OCCURS  THE  TISSUE 
C  TENSIONS  ARE  UPDATED  TO  THE  TIME  OP  THE  NODE  C  TNODE  > .  THERE  ARE 
C  TWO  EXITS  FROM  THIS  PROCEDURE.  IF  NO  NOOE  OCCURS  OR  IF  THE  TISSUE 

C  REMAINS  EXPONENTIAL  FOR  THE  WHOLE  TIME  INTERVAL  THE  EXIT  IS  TO  THE 

C  EXPONENTIAL  UPDATE  PROCEDURE  < STATEMENT  480>.  OTHERWISE  THE  EXIT 

C  IS  TO  THE  EXPONENTIAL-LINEAR  CROSSOVER  TIME  COMPUTATION  PROCEDURE 

C  < STATEMENT  200 >. 

C 

C  EXITS  TO  STATEMENT  200  OR  400 

C 

C«— —————— —  —  —  ———————  — — •» 

C 

C  SET  "TI"  < TIME  REMAINING  IN  INTERVAL  "TC*  AFTER  NODE  HAS  OCCURED > 

C  TO  "TC"  INITIALLY.  ALSO  INITIALIZE  "TEXP"  TO  "TC" . 

C 

TI-TC 

TEXP-TC 

C 

C  IF  TISSUE  INERT  GAS  TENSION  GREATER  THAN  ARTERIAL  IT'S 
C  DESATURATING  OTHERWISE  IT'S  SATURATING  < "DESAT*  IS  FALSE). 

C 

DESAT- . FALSE. 

IF< PTISS.GT .PAN2>  DESAT-. TRUE. 

C 

C  IF  INITIALLY  SATURATING  AND  DESCENDING, NO  MODE  WtLL  OCCUR  DURING 
C  "TC"  A NO  TISSUE  CONTINUES  SATURATING  EXPONENTIALLY. 

C 

IP<RATE.GT.0  .AND.  .NOT. DESAT)  GO  TO  400 
C 
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0238  C  INITIALLY  DESATURATIHG  TISSUES  UNDERGOING  ASCENT  HAVE  NO  NOOE. 

0239  C  TISSUE  CONTINUES  DESATU RATING  AND  A  CROSSOVER  TO  LINEAR  DESAT- 

0240  C  URATION  HILL  OCCUR  SO  GO  TO  CROSSOVER  TIRE  CORPUTATION  PROCEDURE. 

0241  C 

0242  IF< RATE .LT . 0  .AMD.  DESAT)  GO  TO  200 

0243  C 

0244  C  AT  THIS  POINT  THE  ONLY  TISSUE  CONDITIONS  WHICH  HAVE  NOT  BEEN 

0243  C  ELIMINATED  ARE  INITIALLY  EXPONENTIALLY  SATURATING  UNDERGOING 

0246  C  ASCENT  OR  INITIALLY  EXPONENTIALLY  DESATURATINC  UNDERGOING 

024?  C  DESCENT.  IF  ‘RATE"  IS  0  NO  NODE  FOR  EITHER  CONDITION  AND 

0248  C  TISSUE  WILL  STAY  IN  THE  EXPONENTIAL  NODE. 

0249  C 

0230  IF  <RATE.'EQ.O)  GO  TO  400 

0231  C 

0232  C  COMPUTE  TIME  AT  WHICH  NOOE  WILL  OCCUR  < TNODE > . 

0233  C 

0234  K-KSAT 

0233  IF<  DESAT  >  K-KD3AT 

0236  C><  K/RINRT >•< PTISS-PAH2 ) 

025?  TNODEX  t/K>*ALOC<  C*1 . 0> 

0230  C 

0239  C  IF  -TNODE*  IS  0  GO  TO  EXPONENTIAL -LINEAR  CROSSOVER  TIME  PROCEDURE. 

0260  C  <  CAN  ONLY  HAPPEN  FOR  INITIALLY  SATURATED  TISSUE  UNDERGOING  ASCENT  > 

0261  C 

0262  IF< TNODE. LE. 0.0)  GO  TO  200 

0263.  C 

0264  C  IF  “TNODE*  GREATER  THAN  THE  TINE  INCREMENT  *TC“  THERE  IS  NO  NODE 

0263  C  AND  TISSUE  REMAINS  IN  THE  EXPONENTIAL  MODE. 

0266  C 

0267  IF< TNODE. CE.TC)  GO  TO  400 

C 

0269  C  UPDATE  “PAN2“ , “PV3AT*  TO  “TNODE*  AND  COMPUTE  A  NEW  TIME  INTERVAL 

0270  C  "Tt“ .  AT  “TNODE*  TISSUE  AND  ARTERIAL  INERT  GAS  TENSION  ARE  EQUAL 

0271  C  BY  DEFINITION. 

0272  C 

0273  PAN2-PAH2*AINRT*TN0DE 

0274  PVSA  T-P VSAT  »R I NRT* TNG DC 

0273  TI-TC-TMODC 

0276  PTI8S-PAN2 

0277  C 

0278  C  EXPONENTIAL  UPDATE  TINE  INITIALLY  ASSUMED  TO  EQUAL  *TI“. 

0279  C 

0280  TEXP-TI 

0281  C 

0282  C  IF  THE  TISSUE  WAS  INITIALLY  SATURATING  THEN  AFTER  THE  NOOE  IT  WILL 

0283  C  BE  DESATURATINC -ANO  A  CROSSOVER  TO  THE  LINEAR  MODE  NAY  OCCUR. 

0284  C 

0283  IF< .HOT. DESAT)  CO  TO  200 

0286  C 

028?  C  AT  TNI8  POINT  ONLY  THE  DESATURATINC  TISSUE  IS  LEFT  AND  AFTER  THE 

0288  C  NODE  IT  WILL  BE  SATURATING  AND  THEREFORE  WILL  REMAIN  IN  THE 

0289  C  EXPONENTIAL  NOOE.  SET  “DESAT*  TO  FALSE  BEFORE  GOING  TO  THE 

0290  C  EXPONENTIAL  UPDATE  PROCEDURE. 

0291  C 

0292  DESAT*. FALSE. 

0293  GO  TO  400 

0294  C 

0293  C ****************************** ***<<* *4 ************************** ******* 
0296  C 

0297  C  END  OF  EXPONENTIAL  NODE  TINE  PROCEDURE 


I 


0293 

C 

0299 

c*> 

0300 

c 

0301 

c 

0302 

c*' 

0303 

c 

0304 

c 

0303 

c 

0306 

c 

0307 

c 

03  OS 

c 

0309 

c 

031  0 

c 

0311 

c 

0312 

c 

0313 

c 

0314 

c 

0313 

c 

0316 

c 

0317 

c 

0313 

c 

0319 

c 

0320 

c 

0321 

c 

0322 

c 

0323 

c 

0324 

c 

0323 

c 

0326 

c 

0327 

c 

0328 

c 

0329 

c 

0330 

c 

0331 

c 

0332 

c 

0333 

c* 

0334 

c 

0335 

c 

0336 

c 

0337 

20 

0338 

c 

0339 

c 

0340 

c 

0341 

c 

0342 

0343 

c 

0344 

c 

0343 

c 

0346 

c 

0347 

0348 

c 

0349 

c 

0330 

c 

0331 

0332 

c 

0333 

c 

03S4 

c 

0333 

c 

0336 

0337 

c 
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EXPONENTIAL-LINEAR  CROSSOVER  TIME  COMPUTATION  PROCEDURE 


THIS  PROCEDURE  COMPUTES  THE  TIME  AT  WHICH  THE  TISSUE  MILL  CO  PROM 
THE  IHITIAL  EXPONENTIAL  DESATURATION  MODE  TO  THE  LINEAR 
OESATURAT I ON  NODE.  THIS  CROSSOVER  OCCURS  AT  THE  TIME  WHEN  THE 
TOTAL  TISSUE  CAS  TENSION  EXCEEDS  THE  TOTAL  AMBIENT  PRESSURE  BV 
THE  CAS  PHASE  OVERPRESSURE  <PBOVP).  THAT  IS  WHEN: 

<  1)  P< I  )+PV02*PVC02«PH20»PAMa*RAHB*T*PB0VP 

WHERE  FOR  THE  CONDITION  WHERE  NO  CAS  PHASE  IS  PRESENT: 

<  2  )  P< I >«<PTI88-PAN2*RINRT/K  >•< EXP< -R*T  >-1 >*RIHRT»T*PTISS 

•PTISS*  AND  ‘PANS*  ARE  THE  VALUES  OP  THE  TISSUE  INERT  CAS  TENSION 
AND  AMBIENT  PRESSURE  RESPECTIVELY  AT  THE  START  OP  THE  DEPTH 
CHANCE.  ‘RAMS*  IS  THE  RATE  OP  DEPTH  CHANCE  AND  -T-  THE  TIME  SINCE 
THE  BEGINNING  OP  THE  DEPTH  CHANCE.  *K*  IS  THE  EXPONENTIAL  TIME 
CONSTANT  WHICH  IS  EQUAL  TO  EITHER  “K8AT“  OR  *KDSAT*  DEPENDING  ON 
WHETHER  THE  TISSUE  IS  SATURATING  OR  DESATURATIMG .  IN  THE  CONSTANT 
P02  MODE  ‘RAMS*  AND  ‘RINAT*  ARE  EQUAL  AND  EGUATION< 1 >  CAN  BE 
SOLVED  POR  *T*  <  SEE  STATEMENT  210).  IN  THE  CONSTANT  INERT  FRACTION 
NODE  -RAMS*  AND  “RINAT"  ARE  NOT  EQUAL  AND  EQUATION! 1 >  CANNOT  BE 
EXPLICITLY  SOLVED  FOR  “T“  AND  MUST  BE  SOLVED  SY  ITERATION. 


THE  ONLY  EXIT  IS  TO  THE  LINEAR  UPDATE  PROCEDURE  AT  STATEMENT  430. 


CROSSOVER  TIME  INITIALLY  ASSUMED  EQUAL  TO  *TI*. 

TXOVER-TI 

SEE  IF  EQUATION 2)  ASYMPTOTE  LINE  INTERCEPT  GREATER  THAN  THAT  OF 
THE  CROSSOVER  PRESSURE  LINE,  IF  IT  IS  CROSSOVER  WILL  ALWAYS  OCCUR 
SO  CO  COMPUTE  CROSSOVER  TIME. 

IF<  RINRT . LT . < KDSAT*<  PAN2-<  PVSAT+PQOVP ) > ) )  GO  TO  210 

IP  ASYMPTOTE  INTERCEPT  NOT  GREATER  THAN  THAT  OP  CROSSOVER  LINE 
NO  CROSSOVER  OCCURS  IP  P02  IS  CONSTANT. 

IP<  CP02  >  CO  TO  400 

COMPUTE  TIME  WHERE  ASYMPTOTE  INTERSECTS  CROSSOVER  LINE. 

T-<  PAN2-<  PVSAT+PSOVP  >-RINRT^XOSAT  >/<  RAMS -RINRT  > 

IP  “T“  GREATER  OR  EQUAL  TO  THE  TIME  INTERVAL  MI*  NO  CROSSOVER. 

IP  NOT.  *T*  USED  A8  TRIAL  TINE  TO  START  ITERATION. 

IF<T.CE.TI)  CO  TO  400 


B2-6 


GO  TO  220 


0353 
0359 
0360 
0361 
0362 
4363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0373 
0376 
0377 
0373 
0379 
0390 
0391 
0392 
0393 
0384 
0395 
0336 
0387 
0388 
0339 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0399 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0497 
0408 
0409 
0410 
041 1 
0412 
0413 
0414 
0415 
0416 
0417 


C 

c 

c 

c 

210 

c 

c 

c 

c 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

220 


c 

c 

c 

c 

230 


240 

C 

c 

c 


COMPUTE  THE  CROSSOVER  TIME  ASSUMING  THAT  A  CONSTANT  P02  IS  BEING 
USED. 

T—< 1 /KDSAT )«ALOC< 1 -<  PTISS-<  PVSAT+PBOVP ) >/<  PT I SS-PAN24RAHB/KDSAT >  > 

IF  IN  CONSTANT  P02  MODE,  THEN  THE  ABOVE  TIME  IS  THE  ENACT 
TINE  TO  CROSSOVER.  IF  WE'RE  IN  THE  CONSTANT  INERT  CAS  FRACTION 
NODE  THEN  *T"  IS  THE  HAN I NUN  TINE  TO  CROSSOVER  AND  IS  USED  AS  A 
STARTING  POINT  FOR  THE  ITERATION. 

IF<  CP02  >  CO  TO  280 


NEWTON  RAPHSON  ITERATION 

IF  UE 'RE  IN  THE  CONSTANT  INERT  GAS  FRACTION  NODE  THE  CROSSOVER 
TINE  IS  THE  I NO CP END A NT  VARIABLE  IN  THE  NON-INVERTABLE  EQUATION* 1  i 
AND  CAN  ONLY  BE  COMPUTED  BY  ITERATION. 

COMPUTE  CONSTANTS  FOR  ITERATION 

A-<  PTISS-PAH2+RINRT/KDSAT > 

B*< PVSAT ♦P80VP-PTISS > 

C-RAHB-RINRT 

NITR-0 

■Y*  IS  THE  NULL  FUNCTION  WHICH  WILL  BE  EXACTLY  0.0  WHEN  *T»  IS 
EXACTLY  THE  CROSSOVER  TIME.  *DY*  IS  THE  FIRST  DERIVITIVE  OF  «Y* . 

EXPN-EXP< -KDSAT*T ) 

Y»8-A»<  EXPN- 1 )*C*T 
OY-C4KDSAT4A4EXPN 

SEED  ERROR  CHECK  WITH  »T*  A NO  *Y*  ON  FIRST  PASS. 

IF<NITR.GT.O)  GO  TO  240 

TI»T 

Y1«Y 

NITR»NITR*I 

SAVE  ITERATION  VALUES  POR  IN  CASE  PRINTOUT  OCCURS. 

VALIT<1.NITR)-T 

VALIT<2,NITR)-Y 

VALJT<3.NITR)-OY 

VALJT<4.MITR)«Y/DY 

STOP  ITERATION  IF  -V  A NO  *Y/0Y*  ARE  BOTH  LESS  THAN  THE  ACCEPTABLE 
ERROR . 

1F<  489<  Y/D  V  ) .  LE .  0.00001  .AND.  AM<  Y>.L7 . 0. 001  >  CO  TO  270 
STOP  ITERATION  AFTER  10  PR8SES  NO  NATTER  WHAT. 

IP<NITR.EQ. 10)  CO  TO  270 

82-7 


0418 

0419 

0420 

0421 

0422 

0423 

0424 

0423 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0432 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0443 

0446 

0447 

0448 

0449 

0430 

0431 

0432 

0433 

0434 

0433 

0436 

0437 

0438 

0439 

0460 

0461 

0462 

0463 

0464 

0463 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0473 

0476 

0477 


C 

C  IP  *Y“  HAS  UNDERGO HE  A  SIGN  CHANGE  SINCE  LAST  RECORDING  *T1*  THEN 

C  *ABS<  T-Tl  )"  IS  THE  NAXIHUH  ERROR  FOR  *T* .  IF  THIS  ERROR  IS 

C  ACCEPTABLE  THEN  STOP  ITERATION.  THIS  TERNINATES  ITERATIONS  WHERE 

C  *Y*  OSCILLATES  AROUND  ZERO  MORE  RAPIDLY.  IF  •SCHK"  IS  POSITIVE 

C  THEN  NO  SIGN  CHANCE  OCCURED  AND' NO  ERROR  CHECK  HADE. 

C 

SCHK»SIGN<  1 . 0.  Y  >«SIGN<  I  .  0.  Yt  ) 

IF<  3CHK . GT . 0  >  GO  TO  260 
TERR0R-A8S<T1-T> 

IF<  TERROR. LT.  0.0000  CO  TO  270 
T1-T 
Y1-Y 
C 

C  COHPUTE  NEW  ESTIHATE  OF  THE  CROSSOVER  TINE  FOR  THE  NEXT  PASS. 

C 

260  T-T-<Y/DY> 

GO  TO  230 
C 

C  WRITE  OUT  ITERATION  VALUES  IF  CONVERGENCE  TO  ERROR  LIHITS  HAS  NOT 

C  OCCURED  IN  10  ITERATIONS  OR  IF  PRINT  NODE  ON  <IPRNT-1>. 

C 

270  !F<NITR.LT.10  .AND.  IPRNT.EQ.O)  GO  TO  2S0 

UR I TE<  6 . 1 >  HLFTH< I > , CDEPTH , T I , PT I SS , RAHB , R I NRT , P AH2 , PVS AT , A , B , C , 
»<  <  VAL IT< J , L  > , J« I ,4>,L»1 ,NITR> 

C 


c 

C  CROSSOVER  TINE  IS  THE  VALUE  OF  "T*  AT  THE  FINISH  OF  THE  NEWTON 

C  RAPHSON  ITERATION  OR  THE  VALUE  CONFUTED  IN  STATENENT  210  IF  IN  THE 

C  CONSTANT  P02  NOOE.  IF  CROSSOVER  TINE  EXCEEDS  *TI*  GO  TO 
C  EXPONENTIAL  UPDATE. 

C 

280  TXOVER-T 

IF< T . CT. TI )  GO  TO  480 
C 

C  COHPUTE  VENOUS  SATURATION  INERT  CA8  TENSION  AND  ARTERIAL  INERT  GAS 
C  TENSION  AT  CROSSOVER  TINE.  BY  DEFINITION  THE  VENOUS  INERT  CAS 
C  TENSION  EXCEEDS  THE  VENOUS  SATURATION  INERT  GAS  TENSION  BY  THE 
C  GA8- PHASE  OVERPRESSURE  <PSOVP>  AT  THE  CROSSOVER  TINE. 

C 

PVSAT-PVSAT+RAHB«TXOVER 
PAN2-PAN2«R!NRT*TX0VER 
PVN2 “PVSAT ♦PBOVP 

C 

C  VENOUS  AND  DISSOLVED  TISSUE  INERT  CAS  TENSION  EQUAL  WHEN  CAS  PHASE 

C  FORHS.  COHPUTE  TIHE  REHA  INI NC  FOR  LINEAR  UPDATE  AFTER  CROSSOVER. 

C 

PTISS-PVH2 
TLIN-TI-TXOVER 
GO  TO  430 
C 

c 

C  END  EXP -LIN  CROSSOVER  TXHE  CONFUTATION  PROCEDURE 

C 


0473  CMuuMMMMWwwMHMnMwmnMnMMMUNnMwnnMmMwut 

0473  C 

0430  C»a4aaaaaaaaaaaaaaaaaaaaaaaaaaa4aa4aaaaaaaaa4aaaa44aaaaaaaaaaa4aaaa4aaaa 

0481  C 

0432  c  LINE Mi -EXPONENTIAL  CROSSOVER  TINE  COMPUTATION  PROCEDURE 

0483  C 
0494  C 

0485  C  CROSSOVER  OCCURS  WHEN  THE  TOTAL  DISSOLVED  INERT  CAS  TENSION  FALLS 

0486  C  TO  A  LEVEL  WHICH  JUST  EXCEEDS  THE  AHBIENT  PRESSURE  BV  THE  CAS 

0437  C  PHASE  OVERPRESSURE  (PBOVP)  .THAT  IS  WHEN) 

0498  C 

0499  C  <35  P< 1 )*PVO2*PVC02*PH2OaPAHB*RAnBaT+PB0VP 

0490  C 

0491  C  WHERE.  WHEN  A  CAS  PHASE  IS  PRESENT) 

0492  C 

0493  C  <45  P<  I  >«PTISS*KDSATa<  PAN2-PVN2  >aT-<  R02*KDSAT<<2  5*T«a2 

0494  C 

0495  C  "PTISS*  AND  "PARS’  ARE  THE  TISSUE  DISSOLVED  INERT  CAS  TENSION  AND 

0496  C  THE  AHBIENT  PRESSURE  RESPECTIVELY  AT  THE  BECINHINC  OF  THE  LINEAR 

0497  C  OEPTH  CHANCE.  *RAHB “  IS  THE  RATE  OF  DEPTH  CHANCE  AND  *T*  THE  TINE 

0498  C  SINCE  THE  BEGINNING  OF  THE  DEPTH  CHANCE.  EQUATIONS )  CAN  BE  EASILY 

0499  C  SOLVED  FOR  "T"  IN  THE  CONSTANT  P02  NODE  SINCE  "R02"  IS  0.  IN  THE 

0500  C  CONSTANT  INERT  FRACTION  NODE  THE  QUADRATIC  FORMULA  MUST  BE  USED. 

0501  C 

0502  Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.aaaaaaaaaaaaaaaa.aaa 

0503  C 

0504  C  TIME  IN  LINEAR  UPDATE  NOOE  INITIALLY  ASSUMED  EQUAL  TO  "TC". 

0505  C 

0506  300  TLIN-TC 

0507  C 

0508  C  WHEN  A  CAS  PHASE  IS  PRESENT  THE  VENOUS  INERT  CAS  TENSION  EXCEEDS 

0509  C  THE  VENOUS  SATURATION  INERT  GAS  TENSION  BY  THE  CAS  PHASE 

0510  C  OVERPRESSURE. 

051  1  C 

0512  PVH2»PVSAT4PBOVP 

0513  C 

0514  C  VARIABLES  ■A-,*B“,  AND  "C"  ARE  COEFFICIENTS  OF  THE  LINEAR- 

OS  15  C  EXPONENTIAL  CROSSOVER  TIRE  QUADRATIC  EQUATION.  ”D*  IS  THE  SQUARE 

0516  C  ROOT  TERN  OP  THE  QUADRATIC  FORMULA. 

0517  C 

05  IQ  A-#02aKDSAT/2 

0519  QaRAHB— KDSATa<  PAN2-PVN2 > 

0520  CaPVN2-PTISS 

0521  D«Qa*2-4«AaC 

0522  C 

0523  C  CHECK  TO  3EE  IF  HO  CROSSOVER  WILL  OCCUR. 

0324  C 

0523  IF  <O.LT.O.O  .OR.  B.LE.0.0)  CO  TO  4S0 

0526  C 

0527  C  VALUE  OF  CROSSOVER  TINE  DEPENDS  ON  WHETHER  OR  NOT  THE  OXYGEN 

0328  C  TENSION  IS  CHANGING. 

0529  C 

0530  IP< R02 . EQ.  0. 0)  TXOVER— < C/S  ) 

0531  1F<  R02  .HE.  0. 0  >  TXOVER«<  -B*SQRT<  D )  >✓<  2«A  > 

0532  C 

0533  C  IF  CROSSOVER  NOT  WITHIN  TIRE  INTERVAL  "TC”  STAY  LINEAR. 

0S34  C 

•535  IF<  TXOVER . CS . TC )  GO  TO  49S 

•536  C 

•537  C  CONFUTE  TISSUE  AND  ARTERIAL  INERT  GAS  TENSION  AT  CROSSOVER. 


0939  C  TISSUE  DISSOLVED  AMO  VENOUS  INERT  IMS  TENSION  EQUAL  AT  CROSSOVER. 
0939  C  CONFUTE  -TEXP*  AS  TINE  REMAINING  AFTER  CROSSOVER  OCCURS.  AFTER 

0940  C  CROSSOVER  TISSUE  WILL  SE  EXPONENTIALLY  DESATURATINC. 

0941  C 

0942  FT ISS«FVN2*RANS«TXOVER 

0543  P AN2  aRAH2*Rl NRT  aTXOVER 

0944  TEXP-TC-TXOVER 

0949  OESAT-.TRUE. 

0344  C 

0947  C  EXPONENTIAL  UPDATE  EXPECTS  TISSUES  TO  IE  UPDATED  TO  A  NODE  IF 

0948  C  IT  OCCURS.  IF  NO  INERT  CAS  TENSION  CHANGE  OCCURS  NO  NODE. 

0549  C 

0550  IF<RIHRT.EO.O>  CO  TO  400 

0551  C 

0532  C  CONFUTE  TINE  OF  NODE  *TNOOE" . 

0553  C 

0554  C*<  KDSAT/RINRT  >•< PT1SS-PAM2) 

0539  TNODEX  1  /KDSAT  XALOC< C*l  ) 

0554  C 

0537  C  IF  NODE  HILL  NOT  OCCUR  WITHIN  REMAINING  TINE  CO  DIRECTLY  TO  THE 
0538  C  EXPONENTIAL  UPDATE. 

0339  C 

0340  IF<  TNOOE . CE . TEXP >  CO  TO  400 

0341  C 

0542  C  UPDATE  ARTERIAL  INERT  CAS  TENSION  TO  'TNODE'.  AT  -TNOOE*  THE 

0343  C  TISSUE  AND  ARTERIAL  INERT  CAS  TENSIONS  ARE  EQUAL  BY  DEFINITION. 

0544  C 

0543  PAN2-PAN2«R1NRT*TH00E 

0544  PTISS-PAN2 

0547  C 

0548  C  CONFUTE  REMAINING  TINE  AFTER  NODE  OCCURS.  TISSUE  NOW  SATURATING. 
0549  C 

0570  TEXP- TEXP -TNOOE 

0371  DESAT-. FALSE. 

0372  C 
0573  C«4— 

0574  C 

0975  C  TISSUE  INERT  CAS  UPDATE  PROCEDURES 

0574  C 

0577  C  UPDATE  TISSUE  TENSIONS  EITHER  EXPONENTIALLY  OR  LINEARLY  AND  STORE 

0378  C  RESULTS  IN  ARRAY  *P»  . 

0379  C 

0580  CWWMWWWWWWWWMWIMI  MMMOMMMM 

0381  C 

0582  C  EXPONENTIAL  UPDATE. 

0583  C 

0584  400  K-KSAT 

0985  !F<OESAT)  X -KDSAT 

0584  A«PT I 88-PAN2*R I NRT /K 

0587  B-RINRT*TSXPfPTIS8 

0988  P<  I  >-*•<  EXP<  -K*TEXP  >-1 

0989  GO  TO  300 

0390  C 

0391  C  LINEAR  UPDATE. 

0992  C 

0593  450  A-KD8AT*<  P AH2-PVN2 ) 

0594  S-K0SAT4R02/2 

0595  P< I )-PTI8S*A»TL IN-8* TLIN442 

0994  C 


0598  C 

0599  C  END  TISSUE  UPDATE  PROCEDURES 

0600  C 
060 1 
0602  C 

0603  C  END  OF  UPDATE,  GO  UPDATE  NEXT  TISSUE  OR  DROP  THROUGH  TO  COMPUTE 

0604  C  THE  INSTANTANEOUS  ASCENT  DEPTH  IF  ALL  'NTISS*  TISSUES  HAVE  BEEN 

0605  C  UPOATED. 

9606  C 

0607  500  CONTINUE 

0609  C 

06  09  o«««*««««**h«*h««mh««hmmhhhmm*hiiih»imi«m««*«w«im**hi 

061  0  C 

06) I  C  END  OF  TISSUE  UPDATE  LOOP 

0612  C 

0613  CNHHUHUNMHMMMMMHHIIHHMMM4in*««IHIIHHNMtMHW 

06)4  C 

06)5  Cmwmwwhwmmww 

06)6  C 

06)7  C  INSTANTANEOUS  ASCENT  DEPTH  COMPUTATION  PROCEDURE 

06)6  C 

06)9  C  START  AT  30  DEPTH  INCREMENTS  AND  WORK  UP  ONE  DEPTH  INCREMENT  AT  A 

0620  C  TINE  UNTIL  AT  LEAST  ONE  TISSUE  TENSION  EXCEEDS  ITS  MAXIMUM 


062)  C  ALLOWABLE  VALUE. 

0622  C 

0623 
0624  C 

0625  IJ  >30 

0626  DO  550  4-1,30 

0627  DO  510  I>) , NTISS 

0628  IF<P< I ).GT.H< I. I4>>  GO  TO  600 

0628  SI0  CONTINUE 

0630  550  IJ«IJ»I 

0631  C 

0632  C  SUBSCRIPT  'IJ*  OF  ARRAY  *N'  SPECIFIES  NUMBER  OF  DEPTH  INCREMENTS 
0633  C  FOR  THE  INSTANTANEOUS  ASCENT  DEPTH  <IAD>. 

0634  C 

0635  600  IAO-DINC-IJ 

0636  C 

0637  C>— 

0638  C 

0639  C  END  INSTANTANEOUS  ASCENT  DEPTH  COMPUTATION  PROCEDURE 

064  0  C 

064 )  C>>— 

0642  C 

0643  C  ALL  DONE,  RETURN 

0644  C 

0645  RETURN 

0646  END 

0647  ENDS 


! 


u 


ANNEX  B-3 

SUBROUTINE  0PDT7 
EXPONENTIAL-EXPONENTIAL  VERSION 
LISTING 


t 

i 

i 


iUPDTE  T*  0  0  004  IS  ON  CR00012  USING  0009?  BLKS  R«0000 


0001 
0002 
0003 
0004 
OOOS 
0  0  06 
0007 
0  0  09 
0009 
Out  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0  022 
0  023 
0024 
0025 
0  026 
0  027 
0028 
0  029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 


FTN4 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CO** 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  UPDT7,  24  SEPT  82  VER  2.1 


EXPONENTIAL-EXPONENTIAL  VERSION 

UPDATES  THE  TISSUE  INERT  GAS  TENSIONS  IN  ARRAY  “P*  OVER  A  SPECIFIC 
TIME  INTERVAL  *TC“  FOR  A  SPECIFIED  DEPTH  CHANGE  “DC*.  A  VALUE  OF 
0.0  IS  LECAL  FOR  BOTH  "TC*  AND  “DC“.  ASSUMES  GAS  UPTAKE  AND 
ELIMINATION  IS  ALWAYS  EXPONENTIAL.  PROVISION  IS  HADE  FOR 
DIFFERENT  EXPONENTIAL  TIME  CONSTANTS  FOR  UPTAKE  AND  ELIMINATION. 
THE  TRANSITION  BETWEEN  THE  TWO  TIME  COHSTANTS  IS  ALWAYS  MADE  AT  A 
MAXIMUM  OR  MINIMUM  SO  THERE  IS  NO  DISCONTINUITY  IN  THE  SLOPE  OF 
THE  EXPONENTIAL  FUNCTION. 
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«  VARIABLES  • 


A 

AHBA02 

B 

C 

CDEPTH 

CF 

CP02 

DC 

DESAT 

DINC 

FN2 

HLFTN 

I  AO 

14 

K 

KDSAT 

K8AT 

M 

NT1SS 

P 

PAC02 

PAM6 


INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 
AMBIENT-ARTERIAL  OXYGEN  GRADIENT  (FSW) 
INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 
INTERMEDIATE  VARIABLE  FOR  COMPUTATIONS 
CURRENT  DEPTH  (FSW  OR  HSW> 

METRIC  CONVERSION  FACTOR 
CONSTANT  PARTIAL  PRESSSURE  02? 

DEPTH  CHANGE  (FSW  OR  MSW) 

TISSUE  DESATURATINC? 

STOP  DEPTH  INCREMENTS  (MSW  OR  FSW ) 

INERT  GAS  FRACTION 
TISSUE  HALFTIMES  (MIN) 

INSTANTANEOUS  ASCENT  DEPTH  (FSW  OR  MSW) 

DEPTH  (ROW)  SUBSCRIPT  FOR  ARRAY  *H“ 

EXPONENTIAL  TIME  CONSTANT  (1/HIN) 

TINE  CONSTANT  FOR  DESATURATINC  TISSUES  (1/MIN) 
TIME  CONSTANT  FOR  SATURATING  TISSUES  (1/HIN) 
TISSUE  MAXIMUM  CAS  TENSION  ARRAY  (FSW) 

NUMBER  OF  HALFTIME  TISSUES  (9  MAX.) 

TISSUE  GAS  TENSION  ARRAY  (FSW) 

ARTERIAL  C02  PARTIAL  PRESSURE  (FSW) 

AMBIENT  PRESSURE  (FSW) 
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i  —toft 


0053  C  Pans  ARTERIAL  INERT  CAS  TENSION  ( FSM ) 

0059  C  PA02  ARTERIAL  02  TENSION  (FSM) 

0060  C  PBOVP  CAS  PHASE  OVERPRESSURE  (FSM) 

0061  C  PH20  PARTIAL  PRESSURE  OF  WATER  VAPOR  (FSM) 

0062  C  P02  INSPIRED  OXYCEN  PARTIAL  PRESSURE  ( ATA ) 

0063  C  PTISS  TISSUE  DISSOLVED  INERT  CAS  TENSION  (FSM) 

0064  C  PVC02  VENOUS  C02  PARTIAL  PRESSURE  (FSM) 

0065  C  PV02  VENOUS  02  PARTIAL  PRESSURE  (FSM) 

0066  C  RAH8  RATE  OF  ANBIENT  PRESSURE  CHANGE  (PSW/HIN) 

0067  C  RATE  RATE  OF  DEPTH  CHANCE  (FSM  OR  HSW/’HIN) 

0068  C  RINRT  RATE  OF  INSPIRED  INERT  CAS  TENSION  CHANCE  (FSM/'NIN) 

0069  C  SDR  SATURATION -DESATURATION  HALFTINE  RATIO 

0070  C  TC  TINE  CHANGE  DURING  ASCENT  (N!N> 

0071  C  T I  TINE  INTERVAL  FOR  LINEAR-EXPONENTIAL  CROSSOVER  (HIN) 

0072  C  TNODE  TINE  OF  NINIHUN  OR  NAXIHUH  TI3SUE  TENSION  (HIN) 

0073  C 
0074  C 

0075  C  NOTE:  FOR  PARTIAL  PRESSURES  WHICH  ARE  IN  FSM.  33  FSW»1  ATA. 

0076  C 
0077  C 

0073  C4444444 4444444444466446 44 44 44 64 #4 44 4444 44 44 4466 46 46 44444# 4444 44 44644666 

0079  C 

0030  C 04444444444444444444444 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44444444444444444444 

0031  C  — 

0082  C  *  SUBROUTINES  REQUIRED  • 

0083  C 
0034  C 

0085  C  NONE 

0036  C 

0037  C 444444444444444 44 4444 44 44 4444 44 44 44 44 4444 4444 44 44 4444 444444 4444 44444444 

0033  C 

0039  C  NOOEL  INPUT  VARIABLES 

0090  C  THESE  ARE  THE  ONLY  VARIABLES  SENT  FRON  THE  NAIN  PROCRAH  TO  THE 

0091  C  MODEL  SUBROUTINES.  THIS  COHNON  STATE HE NT  NUST  APPEAR  IN  ALL  MODEL 

0092  C  SUBROUTINES. 

0093  C 

0094  COHHON/MDATA/  TC , DC . COEPTH , RATE , CP02 , FN2 , P02 . D INC , CF 

0095  C 

0096  C  NOOEL  COMMON 

0097  C  THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROUTINES  ONLY. 

0038  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

0099  C 

01 00  C0HH0NSPARAH/H<9,3Q).P<9),HLFTH<9),MTISS,SDR(9), IAD 

0101  COHHON/BLD VL/PAC02 , PH20 . PVC02 , PV02 , ARB  A02 , PBOVP 

01 02  C 
0103  C 

0104  LOGICAL  CP02*DESAT 

0105  REAL  N , K , XSAT , KDSAT 

0106  C 

01  07  C*>«»*«*»»*****»M»*  ••»<**»•»*•****•*•*«*••»••**••***  **»»«•*••>«**»•**•**• 

01 08  C 

0109  C  INITIALIZATION  PROCEDURE 

0110  C 
01  1 1  C 

01  12  C«**»»A*A4A6»446«6»»4»664A 44 4464— 44  44  MMWWMXMOMMOMMMWW* 

01 13  C 

01 u  C  IF  TINE  INTERVAL  "TCa  IS  0  NO  UPDATE  NEEDED. 

0115  C 

0116  IF(TC.EQ.O.O)  RETURN 

01 17  C 
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0119  C  ROTES  OF  AH8IEHT  PRESSURE  CHANCE  ALWAYS  IN  FEET/NIN,  CONVERT 

0119  C  METRIC  RATES  TO  FEET/'NIH.  SET  RATE  TO  0  IF  NO  DEPTH  CHANCE. 

0120  C  COMPUTE  INITIAL  ANBIENT  PRESSURE. 

0121  C 

0 1 22  RAHB-CF«RATE 

0123  IF<DC.Efi.O.  )  RARB-0. 

0124  PAHB-CD£PTH«CF+33 

0125  C 

0126  C  FOLLOUINC  VARIABLES  DEPEND  ON  WHETHER  CONSTANT  OXYGEN  PARTIAL 

012?  C  PRESSURE  OF  CONSTANT  INERT  CAS  FRACTION  USED.  LOGICAL  VARIABLE 

0129  C  *CP02*  IS  TRUE  FOR  CONSTANT  P02  OTHERWISE  ITS  FALSE. 

0129  C 

0130  IF<  CP02 )  CO  TO  30 

0131  PA02X  PAHB-PH20  >*( I -FN2  >- ANBA02 

3132  R!NRT»FN2*RAMB 

0133  CO  TO  40 

0134  30  PA02*P02«33*< 1 . 0-PH20/PANB >-AMBA02 

0135  RINRT-RAMB 

0136  40  CONTINUE 

0137  C 

0138  C«**««*«**«**4**«***4*4«*4*M«<*44*«««M*«4*«**4*«tt«*««»»4««*«i4»««4**«*«* 

0139  C 

0140  C  END  INITIALIZATION  PROCEDURE 

0141  C 

0142  CmMtMmtMmMwnMmmMWMnnnHmnMMMmMMuMMUMMtn 

0143  C 
0144  C 

0145  C 44444444444444444444 4444 44444444 444444 04 4444 444444 44444444 4444444444446 

0146  C 

014?  C  TISSUE  UPDATE  LOOP 

0143  C 

0149  C  EXECUTE  LOOP  FOR  ALL  'NTISS"  TISSUES. 

0150  C 

0151  C44444444444444 4444 44 44 44 44 44 44 44 4444 44 444444 444444 444444 4444 44444444 444 

0152  C 

0153  C  COMPUTE  TIME  CONSTANTS  FOR  SATURATING  AND  DESATURATING  TISSUES 

0154  C  < "KSAT*  AND  *KOSAT").  INITIALIZE  ARTERIAL  INERT  CAS  TENSION. 

0155  C 

0156  DO  500  1*1 .NTISS 

0 1 57  KSAT*ALOC<  2 . 0  VHLFTM< I  ) 

0 1 SS  KDSAT«KSAT*SDR< I > 

0159  PAH2"PAMB-t PA02*PAC02*PH20 > 

0160  C 

0161  C  INITIALIZE  TISSUE  TENSION  TO  DEFAULT  VALUE. 

0162  C 

0163  PTISS«P<I> 

0164  C 

0 1 65  Cn«*HMmHnHnmMnn«*twm«iwn*»MUMMH«MmMMaM«*mM> 

0166  C 

0167  C  NODE  TINE  COMPUTATION  PROCEDURE 

0168  C 

0169  C  THIS  PROCEDURE  CHECKS  TO  SEE  IF  INITIALLY  EXPONENTIALLY  SATURATING 

0170  C  OR  DESATURATING  TISSUES  WILL  CO  THROUGH  A  MINIMUM  OR  MAXIMUM 

0171  C  ( NODE  >  DURING  THE  TIME  INTERVAL  *TC* .  IF  A  NODE  OCCURS  THE  TISSUE 

0172  C  TENSIONS  ARE  UPDATEO  TO  THE  TIME  OF  THE  NODE  <  TNODE  >  BEFORE  GOING 

0173  C  TO  THE  EXPONENTIAL  UPDATE  PROCEDURE. 

0174  C 

0175  C  EXITS' TO  STATEMENT  400 


0176  C 

0177  CWWWMWMWWMMWMWUMMOIMMWWWWWMWKWWMWWWm 
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0178  C 

0179  C  SET  *TI *  (TIME  REMAINING  IN  INTERVAL  *TC"  AFTER  NODE  HAS  OCCURED > 
0180  C  TO  *TC*  INITIALLY . 

0181  C 

0182  TI*TC 

0183  C 

0184  C  IF  TISSUE  INERT  CAS  TENSION  GREATER  THAN  ARTERIAL  IT'S 

0185  C  0E3ATURATINC  OTHERWISE  IT'S  SATURATING  < "DESAT*  IS  FALSE). 

0136  C 

0187  DESAT*. FALSE. 

Ot  88  IF<  PTISS . GT . PAH2 )  0€ SAT* .TRUE . 

Ot  39  C 

0190  C  IF  NO  DEPTH  CHANGE  NO  NODE  WILL  OCCUR. 

0191  C 

0192  IF< RATE. EO .0.0)  GO  TO  400 

0193  C 

0194  C  IF  INITIALLY  SATURATING  AND  DESCENDING. NO  NODE  WILL  OCCUR  DURING 

0195  C  ■TC"  AND  TISSUE  CONTINUES  SATURATING  EXPONENTIALLY. 

0196  C 

0197  IF<  RATE. CT . 0  .AND.  .NOT . DESAT )  GO  TO  400 

0198  C 

0199  C  INITIALLY  DESATURATINC  TISSUES  UNDERGOING  ASCENT  HAVE  NO  NODE. 

0200  C  TISSUE  CONTINUES  DESATURATINC  EXPONENTIALLY. 

0201  C 

0202  IF<RATE.LT.O  .AND.  DESAT)  GO  TO  400 

0203  C 

0204  C  COMPUTE  TIME  AT  WHICH  NODE  WILL  OCCUR  <  TNODE  > . 

0205  C 

0206  K-KSAT 

0207  I F< DESAT)  K-KOSAT 

0208  C“<  K/R INPT  )*<  PTISS-PAN2  ) 

0209  TNOOE-<  1  /<  )*AL0C< C ♦  1  ) 

021 0  C 

0211  C  IF  -TNODE"  GREATER  THAN  THE  TIME  INCREMENT  "TC"  OR  IS  LESS  THAN 

0212  C  0.0  THE  NODE  WILL  NOT  OCCUR  WITHIN  THE  TIME  INTERVAL. 

0213  C 

0214  IF< TNODE . GE . TC  .OR.  TNODE . LE . 0. 0 )  GO  TO  400 

0215  C 

0216  C  UPDATE  “PAN2*  TO  "TNODE"  ANO  COMPUTE  A  NEW  TIME  INTERVAL 

0217  C  "TI".  AT  "TNODE"  TISSUE  AND  ARTERIAL  INERT  GAS  TENSION  ARE  EQUAL 

0218  C  BY  DEFINITION. 

0219  C 

0220  PAN2»PAH2*RINRT*TN0DE 

0221  TI-TC-TNODE 

0222  PTISS*PAN2 

0223  C 

0224  C  AFTER  THE  NODE  TISSUE  GAS  TRANSFER  IS  OPPOSITE  TO  WHAT  IT  WAS 

0225  C  INITIALLY. 

0226  C 

0227  DESAT*. HOT. DESAT 

0228  C 

0229  C* ********************************** ******************** ******** ******* 

0230  C 

0231  C  END  NODE  TINE  COMPUTATION  PROCEDURE 

0232  C 
0233  C< 

0234  C 
0235  C 
0236  C 
0237  C 


EXPONENTIAL  UPDATE  PROCEDURE 


0238  c 

0239  C— — — — — — — —————a—————— 

0240  400  K-KSAT 

0241  1F< DESAT )  K-KDSAT 

0242  A-PTXSS-PANE+RINRT/K 

0243  B-RINRTaTl+PTtSS 

0244  P<  1  )■*•<  EXP<  -K*T  I  )-1  >♦■ 

0245  C 

0246  ««  «» 

0247  C 

0248  C  END  EXPONENTIAL  UPDATE  PPOCEDURE 

0249  C 

0250  C4<MM4<MOTMMMM4MM<MMMMMMMMMM4MM<MMM44MM44M<M 

0251  C 

0252  C  END  OP  UPDATE ,  CO  UPDATE  NEXT  TISSUE  OP  OPOP  THROUGH  TO  COMPUTE 

0253  C  THE  INSTANTANEOUS  ASCENT  OEPTH  IP  ALL  ‘NTISS*  TISSUES  HAVE  BEEN 

0254  C  UPDATED . 

0255  C 

0256  500  CONTINUE 

0257  C 

0258  CIMHIMHHHHMMMUMHMHIlHHHHHIlHIHIIMMIMIMIIMOlil 

0259  C 

0260  C  END  OP  TISSUE  UPDATE  LOOP 

0261  C 


0262  CHilWIiMlINMHMHNMIlNMMHMNHNMUItNNIlWNHIINHMt 

0263  C 

0264  C  — —  4W6—4—*— —  —  ———— <n— 

0265  C 

0266  C  INSTANTANEOUS  ASCENT  OEPTH  COMPUTATION  PROCEDURE 

0267  C 

0263  C  START  AT  .30  DEPTH  INCREMENTS  AND  WORK  UP  ONE  DEPTH  INCREMENT  AT  A 

0269  C  TIME  UNTIL  AT  LEAST  ONE  TISSUE  TENSION  EXCEEDS  ITS  MAXIMUM 

0270  C  ALLOWABLE  VALUE. 

0271  C 

0272  C«MM*MtMMM4M«MMM4  —  —  M  MM  M  »MM»MMM»«t»MMM»t<»»M»»«4 

0273  C 

0274  IJ  -30 

0275  OO '550  J-1,30 

0276  DO  510  1-1, NTISS 

0277  IF< P<  I  ).  GT.M<  I,  X  J  )  >  GO  TO  600 

0278  51 0  CONTINUE 

0279  550  IJ-I0>l 

0280  C 

0281  C  SUBSCRIPT  -IJ*  OF  ARRAV  *M*  SPECIFIES  NUMBER  OF  DEPTH  INCREMENTS 
0282  C  FOR  THE  IHSTANTANEOUS  ASCENT  DEPTH  <IAD>. 

0283  C 

0284  600  IAO-DIHC*! J 

0285  C 

0286  C— —————— ——————————————————— 

0287  C 

0288  C  END  INSTANTANEOUS  ASCENT  DEPTH  COMPUTATION  PROCEDURE 

0289  C 

0290  C«— ————— — ——————————————— 

0291  C 

0292  C  ALL  DONE,  RETURN 

0293  C 

0294  RETURN 

0295  END 

0296  ENDS 


6FP.SP7  T-00004  13  ON  CR00012  US1HG  00032  BLKS  R-0000 


0061 
0002 
0003 
0004 
000? 
0006 
0007 
0008 
00  09 
OOt  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0033 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FRSP7<DFS>,  01  HAR  83  VER  1.2 


FINOS  DEPTH  OF  FIRST  STOP  (DFS).  TRIAL  STOP  DEPTH  ( HIND ) 
INITIALLY  SET  TO  CURRENT  INSTANTANEOUS  ASCENT  DEPTH  <IAO>.  A 
TRIAL  ASCENT  TO  “HIND"  IS  DONE  TO  SEE  IF  “ I AD"  CHANCES  DURING 
ASCENT.  IF  "I AD*  CHANGES  A  NEW  TRIAL  ASCENT  FROH  “CDEPTH"  TO  THE 
NEW  " I AD"  IS  DONE.  ITERATION  CONTINUES  UNTIL  THE  "1AD"  AFTER 
ASCENT  AND  "HIND"  ARE  EQUAL. 

DEPTH  OF  FIRST  STOP  UILL  NEVER  BE  DEEPER  THAN  THE  CURRENT 
DEPTH.  IF  ASCENTS  ALWAYS  ACCOHPANIED  BY  APPROPRIATE  DECOHPPESSION 
NO  PROBLEHS  UILL  OCCUR.  HOWEVER ,  IF  aN  ASCENT  IS  TAKEN  UITHuUT 
DECOHPRESS ION  STOPS  THEN  A  FIRST  STOP  DEPTH  SOUGHT,  THE  " IAD"  HAY 
BE  DEEPER  THAN  THE  CURRENT  DEPTH.  IN  THESE  CASES  THE  FIRST  STOP 
DEPTH  UILL  BE  THE  CURRENT  DEPTH. 


88  98  88  89  88  88  88  89  88  8088  88  88  88  89  89  88  Mil 


WRITTEN  BY 

CDR  EDUARD  0.  THALHANN  (HC>  USN 


U.S.  NAVY  EXPERIHENTAL  DIVING 
UNIT 

PANAMA  CITY, FLORIDA  32407 


9988988888998888889998880999899999999 


>  **«••**«  •«#«»' 
«• m  »***•*»*• 
*  VARIABLES  * 
••*••*•••**•* 


AHBA02  AMBI ENT-ARTERIAL  OXYGEN  GRADIENT  (FSW) 

CDEPTH  CURRENT  DEPTH  <FSU  OR  HSU) 

CF  HETRIC  CONVERSION  FACTOR 

CP02  CONSTANT  PARTIAL  PRESSSURE  02? 

DC  DEPTH  CHANGE  < FSU  OR  HSU > 

DFS  DEPTH  OF  FIRST  STOP  <FSU  OR  HSW> 

DINC  STOP  DEPTH  INCRENENTS  (FSU  OR  HSU ) 

FH2  INERT  GAS  FRACTION 

HLFTH  COMPARTHENT  HALFTIHES  (HIN> 

IAD  INSTANTANEOUS  ASCENT  DEPTH  (FSU  OR  HSU) 

IADTMP  VARIABLE  TO  TEHORARILY  STORE  CURRENT  VALUE  OF  "IAD", 

LASTIT  LAST  TIHE  THROUGH  ITERATION  LOOP”’ 

H  COHPARTHENT  HAXIHUH  GAS  TENSION  ARRAY  (FSU) 

HIND  TRIAL  FIRST  STOP  DEPTH  (FSU  OR  HSU > 

NTISS  NUMBER  OF  HALFTIHE  COHPARTHENTS  (9  HAX .  ) 

P  COMPARTHENT  GAS  TENSION  ARRAY  (FSU> 

PAC02  ARTERIAL  C02  PARTIAL  PRESSURE  (FSU> 

PBOVP  GAS  PHASE  OVERPRESSURE  (FSU) 

PH20  PARTIAL  PRESSURE  OF  WATER  VAPOR  (FSU) 

P02  INSPIRED  OXYGEN  PARTIAL  PRESSURE  ( ATA > 


B4-I 


ERR  1.0 


0059  C  PVC02 

0060  C  PV02 

006t  C  RATE 

0062  C  SDR 

0063  C  TC 

0064  C  TP 

0065  C 

0066  C 

0067  C  NOTE:  FOR  PARTIAL  PRESSURES  WHICH  ARE  IN  FSU.  33  FSW-1  ATA . 

0069  C 

0069  C 

0070  C444 4444 444 44444 44 4444 44444444444444444# 44444444444444444444444444444444 

0071  C 

0072  C# #44444 44444# 4444 4444 44 444444 #44444444444444444444444444444444444444444 
0073  C  ••*•••«•**•***•••••**••• 

0074  C  *  SUBROUTINES  REQUIRED  • 

0075  C 

0076  C 

0077  C  UPDT7  UPDATES  MODEL  OVER  A  SINGLE  TIME  INTERVAL 

0073  C 

0079  044444444444444444444444 444444444444444444444444444444444444444444444444 

0030  C 

0031  C  MODEL  INPUT  VARIABLES 

0032  C  THESE  ARE  THE  ONLY  VARIABLES  SENT  FROM  THE  MAIN  PROCRAM  TO  THE 

0033  C  MODEL  SUBROUTINES.  THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL 

0034  C  SUBROUTINES. 

0035  C 

0036  COMMON.'MDATAX  TC ,  DC,  COEPTH ,  RATE ,  CP02 ,  FN2 ,  P02,  D  INC ,  CF 

0037  C 

0089  C  MODEL  COMMON 

0099  C  THESE  VARIABLES  ARE  SENT  BETWEEN  MOOEL  SUBROUTINES  ONLY. 

0090  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

0091  C 

0092  COMMON, 'PAR  AM  7M<  9 . 30  > ,  P<  9  ) .  HLFTM<  9  >,  NTISS,  SDR(  9  ) ,  I  AD 

0093  COMMON.'BLD  VL/PAC02 ,  PH20 ,  PVC02 ,  PV02 ,  AMB  A02 ,  PBOVP 

0094  C 

0095  C 

0096  LOGICAL  CP02 , LASTIT 

0097  REAL  M 

0090  DIMENSION  TP< 9 » 

0099  C 

01  00  c*****f»  «*«.«m«««*m«*wm*»*»**m««*«*m««»»*m«k**«***m***» 

01  01  C 

0102  C  INITIALIZATION  PROCEDURE 

01 03  C 

01  04  C*«"*  ****»■****■* ** »*»**» *4 •**# *444  *>* *4 *•***!»  **** ***»**»**»«»»*•»***■» ****** 

0105  C 

0106  C  INITIALIZE  DEPTH  OF  FIRST  STOP  TO  CURRENT  DEPTH.  IF  "CDEPTH"  EQUAL 

0107  C  TO  OR  SHALLOWER  THAN  "I AD"  FIRST  STOP  IS  AT  "CDEPTH". 

01 08  C 

0109  DFS-CDEPTH 

0110  IF<  I NT< CDEPTH >  .LE.  IAD  )  RETURN 

0111  C 

0112  C  INITIALIZE  "LAST  ITERATION*  SWITCH.  SAVE  TISSUE  TENSIONS  AND 

0113  C  "IAD*  TEMPORARILY. 

01  14  C 

0115  LASTIT-, FALSE. 

01  16  DO  20  1-1 .NTISS 

01  17  20  TP<  I  >«P<  I  > 

0118  I ADTMP-I AD 


VENOUS  C02  PARTIAL  PRESSURE  (FSW) 

VENOUS  02  PARTIAL  PRESSURE  (FSU) 

RATE  OF  TRAVEL  DURING  DEPTH  CHANCE  (FSW  OR  MSW/MIN) 
SATURATION -OESATURAT ION  HALFTIME  RATIO 
TIME  CHANGE  DURING  ASCENT  (MIN) 

ARRAY  TO  TEMPORARILY  STORE  COMPARTMENT  CAS  TENSIONS 


BA-2 


ERR  1.0 


I 


Ot  19  C 
0120  C»* 

0*21  C 
0122  C 
0123  C 
0124  C** 

0125  C 
0126  C»* 

0127  C 
0128  C 
0129  C 
0130  C 
0131  C 
0132  C*« 

0133  C 
0134  C 
0135  C 
0136  30 

0137 
0138 
0139  C 
0140  C 
0141  C 
0142  C 
0143 
0144 

0145  32 

0146  C 
0147  C 
0148  C 
0149  C 
0150  C 
0151  C 
0152 
0153 
0154 
0155 
0156 

0157  40 

0158  C 
0159  C 
0160  C 
0161  42 

0162  C 
0163  C 
0164  C 
0165  C 
0166  C 
0167  C 
0168  C 
0169  C 
0170  C 
0171  C 
0172  C 
0173 
0174 
0 1 73  C 
0176  C 
0177  C 
0178 


END  OF  INITIALIZATION 


DEPTH  OF  FIRST  STOP  ITERATION  LOOP 
ALL  EXITS  00  TO  STATEMENT  *50 


TRY  FIRST  STOP  DEPTH  AS  "1A0*.  DEFINITION  OF  ASCENT  CRITERIA 
REQUIRES  THEY  8E  MET  “DINC*  DEEPER  THAN  FINAL  FIRST  STOP  DEPTH. 

MIND* I AD 

DC*MIND-C0EPTN«-D1NC 

TC-DC/RATE 

SUBROUTINE  UPDT7  WILL  COMPUTE  NEW  "IAD"  AFTER  TRIAL  ASCENT. 
REESTABLISH  TISSUE  TENSIONS  AFTER  CALLING  SUBROUTINE  UPDT7 . 

CALL  UPDT7 
DO  32  1*1 , NT1SS 
P<  I  )*TP<  I  J 

IF  “1AD“  HASN'T  CHANGED  OR  HAS  DECREASED  DURING  TRIAL  ASCENT  TO 
"MIND+DIMC"  THEN  ASCENT  TO  "MIND"  MAY  8E  P0SSI8LE  WITHOUT 
VIOLATING  THE  ASCENT  CRITERIA.  GIVE  IT  A  TRY.  REESTABLISH  TISSUE 
TENSIONS  WHEN  DONE. 

IF< IAD  .GT.  MIND)  GO  TO  42 

DC*M I ND-CDEPTH 

TC-DC/RATE 

CALL  UPBT7 

DO  40  I-1.NTISS 

P<  I  )*TP<  I  > 

IF  NEW  “IAD"  AND  "NINO"  EQUAL  AFTER  TRIAL  ASCENT,  WERE  DONE. 

1 F  < 1AD.EQ.MIND)  CO  TO  50 

IF  NEW  "IAD*  IS  SHALLOWER  THAN  “MINO"  SET  "LASTIT*  TO  TRUE.  THIS 
WILL  STOP  THE  ITERATION  IF  "I AD*  BECOMES  GREATER  THAN  "MIND"  THE 
NEXT  TIME  AROUND.  THIS  WILL  PREVENT  GETTING  STUCK  IN  THE  LOOP  IF 
THERE  IS  A  TISSUE  STILL  SATURATING  AT  "MIND*  IN  WHICH  CASE  "IAD" 
WILL  NEVER  EQUAL  "MINO"  BUT  WILL  OSCILLATE  ONE  DEPTH  INCREMENT 
DEEPER  AND  SHALLOWER  ON  SUCCESSIVE  ITERATIONS.  IN  THESE  CASES  THE 
FIRST  STOP  DEPTH  IS  THE  FIRST  VALUE  OF  "MIND”  WHICH  CAUSES  "IAD" 
TO  INCREASE  IN  VALUE  AFTER  IT  HAD  DECREASED  ON  THE  PREVIOUS 
ITERATION. 

IF< IAD, LT. MINO)  LASTIT- . TRUE . 

TF< I AO. GT. MINO  .AND,  LASTIT)  00  TO  SO 

SET  UP  FOR  ASCENT  TO  HEW  "IAD". 

GO  TO  30 


ERR  1.0 


■  I** 


END  OF  ITERATION  LOOP 


0179 
0100 
0131 
0132 
0183 
0134 
0135 
0136 
0137 
0138 
0139 
0190 
0)  91 
0192 


C 

c« 

c 

c 

c 

c- 

c 

c 

c 


REESTABLISH  *IAO*.  DEPTH  OF  FIRST  STOP  IS  “HIND" 

SO  IAD> I ADTHP 
DFS-MIND 
RETURN 
END 
ENDS 


I 


B4-4 


ERR  1.0 


ANNEX  B-5 


SUBROUTINE  STIM7 
EXPONENTIAL-LINEAR  VERSION 
LISTING 


[ 

f 

i 


i 


* 


4STIM?  T-00904  IS  ON  CR00012  USING  OOOSS  BLKS  R-0000 


0001 
0  002 
0003 
0004 
0005 
0006 
000? 
0008 
0008 
001  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0  022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0033 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0  046 
0047 
0048 
0049 
0050 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
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SUBROUTINE  ST IH7< TINE, SDEPTH ),  24  SEPT  32  VER  1.4 
EXPONEHTIALrLINEAR  VERSION 

FINOS  THE  TIME  WHICH  NEEDS  TO  BE  SPENT  AT  "CDEPTH"  IN  ORDER 
TO  ASCEND  TO  "SDEPTH*.  “SDEPTH*  IS  USED  TO  COMPUTE  THE  DEPTH  (ROW) 
SUBSCRIPT  *IJ*  FOR  ARRAY  "M*  .  IF  ‘SDEPTH*  IS  NOT  AH  EXACT  MULTIPLE 
OF  ‘OINC*  "IJ"  POINTS  TO  THE  NEXT  SHALLOWER  DEPTH  WHICH  IS.  IN 
ORDER  TO  ASCEND  TO  ‘SDEPTH*  SUFFICIENT  TINE  MUST  BE  SPENT  AT 
‘CDEPTH*  SO  THAT  ALL  TISSUE  TENSIONS  BECOME  LESS  THAN  OR  EQUAL  TO 
THE  MAXIMUM  TISSUE  TENSIONS  IN  THE  *IJ*  ROW  OF  THE  ARRAY  *H‘. 

THE  NORMAL  MODE  IS  FOR  THE  NEXT  STOP  TO  BE  ONE  *D!NC*  SHALLOWER 
THAN  THE  CURRENT  DEPTH.  WHEN  THE  NEXT  STOP  IS  MORE  THAN  ONE  ‘DINC’ 
SHALLOWER  THE  INITIALLY  COMPUTED  STOP  TIME  IS  SHORTENED  TO  TAKE 
ADVANTAGE  OF  THE  ADDITIONAL  DECOMPRESSION  GAINED  AFTER  THE  FIRST 
“DINC*  OF  ASCENT. 


0000000000000000000000000000000000000 
0  0 

0  WRITTEN  BY  3 

0  0 
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•  VARIABLES  * 

M4AM4MWM 

AMBA02  AMBIENT-ARTERIAL  OXYGEN  GRADIENT  (FSW) 

CDEPTH  CURRENT  DEPTH  (FSW  OR  MSW > 

CF  METRIC  CONVERSION  FACTOR 

CP02  CONSTANT  PARTIAL  PRESSSURE  02? 

OC  OEPTH  CHANCE  (FSW  OR  NSW) 

DFS  DEPTH  OF  FIRST  STOP  (FSW  OR  MSW) 

OINC  STOP  OEPTH  INCREMENTS  (FSW  OR  MSW) 

FIRSTH  FIRST  TIME  THROUGH  OPTIHIZATION  PROCEDURE? 

FH2  INERT  CAS  FRACTION 

HLFTM  COMPARTMENT  HALFTIMES  <NIN> 

I AO  INSTANTANEOUS  ASCENT  DEPTH  (FSW  OR  NSW) 

IADTMP  TEMPORARY  I AO  STORAGE 

I DFS  HAS  *DFS*  EVER  BEEN  GREATER  THAN  "SDEPTH"? 

14  OEPTH  (ROW)  SUBSCRIPT  FOR  ARRAY  *H* . 

KDSAT  TIME  CONSTANT  FOR  DESATURATINC  TISSUE  (1/MIH) 

KSAT  TIME  CONSTANT  FOR  SATURATING  TISSUES  (l/HIN) 

M  COHPARTNENT  MAXIMUM  GAS  TENSION  ARRAY  (FSW) 

HTISS  NUMBER  OF  HALFTIME  COMPARTMENTS  (9  MAX.) 

P  COMPARTMENT  GAS  TENSION  ARRAY  (FSW) 

PAC02  ARTERIAL  C02  PARTIAL  PRESSURE  (FSW) 


0050 

005* 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0073 

0079 

0030 

0081 

0032 

0033 

0084 

0033 
0086 
0037 
0088 
0039 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
01  00 
01  01 
01  02 
01  03 
0104 
01  05 
01  06 
01  07 
01  08 
01  09 
01  I  0 
01  11 
0112 
01  13 
01  14 
01  13 
01  16 
0117 
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PARS  AMBIENT  PRESSURE  (FSU) 

PANS  ARTERIAL  INERT  CAS  TENSION  (FSU) 

PA02  ARTERIAL  02  TENSION  (FSU) 

PSOVP  CAS  PHASE  OVERPRESSURE  (FSU) 

PH2G  PARTIAL  PRESSURE  OF  UATER  VAPOR  (FSU) 

PLIN  INERT  GAS  TENSION  AT  END  OF  LINEAR  UPDATE  (FSU) 

P02  INSPIRED  OXYGEN  PARTIAL  PRESSURE  ( ATA > 

PVC02  VENOUS  C02  PARTIAL  PRESSURE  (FSU) 

PVN2  VENOUS  INERT  CAS  TENSION  (FSU) 

PV02  VENOUS  02  PARTIAL  PRESSURE  (FSU) 

RATE  RATE  OF  TRAVEL  OUR1NC  DEPTH  CHANCE  (FSU  OR  NSU/HIN) 

SOEPTH  NEXT  DEPTH  AFTER  STOP  (FSU  OR  HSU ) 

SDR  SATURATION -OESATURAT ION  HALFTIME  RATIO 

T  TRIAL  NO  DECOMPRESSION  TIME  (MIN) 

TC  TINE  CHANGE  DURING  ASCENT  (MIN) 

TDSAT  STOP  TIME  FOR  DESATURATINC  TISSUE  (MIN) 

TEXP  TIME  FOR  EXPONENTIAL  UPDATE  PORTION  (MIN) 

TIME  STOP  TIME  (MIN) 

TLIN  TIME  FOR  LINEAR  UPDATE  PORTION  (MIN) 

TP  TEMPORARY  CAS  TENSION  STORAGE  ARRAY 

T3AT  STOP  TIME  FOR  SATURATING  TISSUE  (MIN) 


NOTE:  FOR  PARTIAL  PRESSURES  UH1CH  ARE  IN  FSU.  33  FSU  -  1  ATA. 


•  SUBROUTINES  REQUIRED  • 


UPDT7  UPDATES  TISSUE  TENSIONS.  COMPUTES  * IAD* 

FRSP7  COMPUTES  DEPTH  OF  FIRST  STOP 

MMIHIHIIHHHMMtlMMMHIIMMIHIHIHHIIIIIUMHMHI 

MODEL  INPUT  VARIABLES 

THESE  ARE  THE  OHLY  VARIABLES  SEHT  FROM  THE  MAIN  PROGRAM  TO  THE 
MODEL  SUBROUTINES.  THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL 
SUBROUTINES. 


C 

C 

C 

C 

C 


C 

C 


C 

c 

C 

C 

C 


COMMON /*MDAT A/  TC ,  DC ,  CDEPTH ,  RATE .  CP02 ,  FN2 ,  P02 ,  D  INC ,  CF 
MODEL  COMMON 

THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROUTINES  ONLY. 

THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

COMHON/'PARAH/'M(  9 . 30  ) ,  P(  9  > ,  HLFTN(  9  > ,  NT  I SS ,  SDR(  9  > ,  I  AD 
COHNON/BLDVL/PAC02 . PH20 . PVC02. PV02 . AHB A02 . PBOVP 


LOGICAL  CP02. IDF8.FIRSTM 
REAL  M , X , XSAT . K08AT , TP<  9  > 


INITIALIZATION  PROCEDURE 


85-2 


COMPUTE  AMBIENT  PRESSURE  IN  FSU, 


0119  C 
0120  C 
0121  C 

0122  PAHB-CDEPTH*CF«-33 . 

0123  C 

0124  C  IF  CP02  SET  USE  CONSTANT  P02  MODE  FOR  COMPUTINC  P02 .  COMPUTE 

0123  C  VENOUS  AND  ARTERIAL  INERT  CAS  TENSIONS. 

0126  C 

012?  PA02«<  PAN8-PH20  >a<  1  -FN2  >-ANBA02 

0 1 29  IF<  CP02  >  PA02-P02*33. *< I . 0-PH20/PAMB J-AHBA02 

0 1 29  PVN2»PANB-<  PV024PVC02*PH20  >*PBOVP 

0130  PAN2-PAHB-< PA02+PAC02+PH20 > 

0131  C 

0132  C  INITIALIZE  SATURATION  AND  DESATURATION  TIMES. 

0133  C 

0134  TDSAT-0.0 

0135  TSAT-9999. 

0136  C 

0137  C  COMPUTE  DEPTH  SUBSCRIPT  FOR  ARRAY  *M*  CORRESPONDING  TO  “SDEPTH" . 

0138  C 

0139  I J«<  SDEPTH/DINC )♦! 

0140  C 

0141  Caa*a*«aa**aa«awaM<MMtt*an*aaaaaaaaaaaaaaaaaaaaaaaaMa**aaaa*«****»a*a*« 

0142  C 

0143  C  END  OF  INITIALIZATION 

0144  C 

0  1  43  C**'******44M**1MWMMM*0*M*444*4MMM*****M«WM*»M»***II******** 

0146  C 

0 1 47  Caaaaaaaaaaaaaaaa* «aaaaa4aaaaa4aaa4aaaaaaaaaaaaaaaaaaaaa*aaaa«»»a*aa*a»* 

0148  C 

0149  C  TRIAL  DESATURATION  AND  SATURATION  STOP  TIME  COMPUTATION  PROCEDURE 

0150  C 

0151  C  STOP  TIME  IS  THE  TIME  AT  MHICH  TISSUE  DISSOLVED  INERT  CAS  TENSION 

0132  C  <P'I) )  EQUALS  THE  MAXIMUM  PERMISSIBLE  TENSION  AT  THE  NEXT  DESIRED 

0133  C  DEPTH.  AT  A  GIVEN  STOP  SOME  TISSUES  MAY  BE  SATURATING,  OTHERS 

0154  C  DESATURATINC.  THE  STOP  TIME  IS  THE  LESSER  OF  THE  SATURATION  TIME 

0155  C  AND  DESATURATION  TIME  TO  THE  MAXIMUM  VALUE  IN  ARRAY  "M"  . 

0136  C 

0137  C*aaa**aaaaaaaaaaaaaaaaaaaaaaaaa«aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa»aaa* 

0133  C 

0159  C  COMPUTE  TRIAL  SATURATION  OR  OSSATURATION  STOP  TIME  FOR  EACH  TISSUE 
0160  C 

0161  DO  300  1-1 ,NTISS 

0162  C 

0163  C  COMPUTE  TIME  CONSTANTS  FOR  SATURATING  AND  DESATURATINC  TISSUES. 

0164  C 

0163  KSAT-ALOC<  2 . 0  >/'HLFTM<  I  > 

0 1 66  KDSAT«KSATaSDR< I > 

0167  C 

0168  C  IF  TIS3UE  SATURATING  CO  TO  SATURATION  TIME  COMPUTATION. 

0169  C 

0170  IF<P< I ).LE.PAN2>  GO  TO  100 

0171  C 

0173  C 

0174  C  FIHD  TRIAL  STOP  TIME  FOR  DESATURATINC  TISSUES 

0175  C 

A  A  . . . . . . . . 


0176 
0 1  79 
0130 
0131 
0132 
0133 
0134 
0133 
0196 
0137 
0138 
0139 
0190 
0191 
0192 
0193 
0194 
01  95 
0196 
0197 
01 

0199 
0200 
02  u  1 
02  02 
0203 
0204 
02  05 
02  06 
0207 
32  OS 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0223 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0233 
0236 
0237 


C  IF  TISSUE  TENSION  LESS  THAN  THE  MAXIMUM  PERMISSIBLE  TENSIOH  THEH 

C  THt  TRIAL  STOP  TIME  IS  0.0. 

C 

T«0. 0 

IF<P<  I  >.LE.M<  I,  I  J>>  CO  TO  50 
C 

c  if  arterial  tension  greater  than  maximum  permissible  tension  then 

C  STOP  TIME  IS  INFINITE  <9999  MIN.). 

c 

T-9999 . 

IF<  PAN2 . GE .  H(  I ,  I J  )  >  CO  TO  30 

c 

C  IF  TISSUE  TENSION  LESS  THAN  ’PVH2*  TISSUE  IS  ALREADY  IN  THE 

C  EXPONENTIAL  PORTION  OF  DESATURATION  AND  LINEAR  PORTION  OF  THE 

C  STOP  TIME  IS  0.0.  THIS  IS  ACCOMPLISHED  BY  SETTING  *PLIN*  TO  “P< I >“ 

C  SO  *TLIN“  WILL  BE  COMPUTED  AS  0.0. 

C 

IF<  P< I  )  . LE . PVN2 )  PLIN-P<I) 

C 

C  COMPUTE  STOP  TIME  FOR  THE  LINEAR  PORTION  OF  DESATURATION .  “PLIN" 

C  IS  THE  VALUE  OF  THE  TISSUE  TENSION  AT  THE  COMPLETION  OF  THE  LINEAR 

C  DESATURATION  TO  THE  MAXIMUM  TISSUE  TENSION. 

C 

IF<P< I).CT.PVN2)  PLIN-PVN2 
IF<H< I, I J).G£.PVN2)  PLIN-H<I,IJ> 

TL1N»< 1/KDSAT )»<<PLIN-P< I))/<PAN2 -PVN2 ) > 

C 

C  IF  THE  MAXIMUM  TISSUE  TENSION  GREATER  THAN  *PVN2“  NO  EXPONENTIAL 

C  DESATURAT I  OH  WILL  OCCUR  AND  EXPONENTIAL  PORTION  OF  THE  STOP  TIME 

C  WILL  BE  0.0. 

C 

texp»o. a 

IF<  H< I , I J  > . GE . PVN2 )  GO  TO  40 
C 

C  COMPUTE  EXPONENTIAL  PORTION  OF  THE  STOP  TIME. 

C 

TEXP-<  1  /’KDSAT  )*AL0C<  <  PLIN-PAN2  >/<  M<  I .  I J  )-PAN2  >  > 

C 

C  DESATURATION  STOP  TIME  IS  THE  SUM  OF  THE  EXPONENTIAL  AND  LINEAR 

C  TIMES. 

C 

40  T-TLIN+TEXP 

C 

C  LARGEST  ALLOWABLE  TIME  IS  9999  MIH.  WHICH  IS  ESSENTIALLY  INFINITE. 

C 

IF<T.GTi9999. )  T-9999. 

C 

C  SAVE  LARGEST  DESATURATION  TIME  COMPUTED  SO  FAR. 

C 

30  TDSAT-AMAX 1 <  TDSAT , T > 

CO  TO  300 
C 

C 

C  TRIAL  STOP  TIME  COMPUTATION  FOR  SATURATING  TISSUES 

C 


C 

C  SATURATION  TIME  IS  0.0  IP  TISSUE  TENSION  ALREADY  GREATER  THAN  THE 
C  MAXIMUM  PERMISSIBLE  VALUE. 
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0238  C 

0239  100  T»0 . 0 

0240  1F<P<  I  >.GE.M<  I.  I  J>>  GO  TO  ISO 

0241  C 

0242  C  WILL  NEVER  REACH  MAXIMUM  VALUE  IF  ARTERIAL  TENSION  LESS  THAN  THE 

0243  C  MAXIMUM  PERMISSIBLE  VALUE. 

0244  C 

0243  T«9999. 

0246  IF<FAN2.L£.H< I, I J>>  CO  TO  ISO 

0247  C 

0248  C  COMPUTE  SATURATION  TIME. 

0249  C 

02SO  T«<  1/KSAT>«AL0C<<P<  I  >-PAN2>/'<M<  I ,  I  J  ;-PAN2  >  > 

0251  IF<  T . LT .0.0)  T-0.0 

02S2  C 

02S3  C  SAVE  THE  SMALLEST  DESATURATION  TIME  SO  FAR  THEN  CO  BACK  AND  DO 

02S4  C  ANOTHER  TISSUE  OR  DROP  THROUCH  IF  ALL  "NTI3S*  TISSUES  DONE. 

0255  C 

0256  ISO  TSAT*AMIN1<  T, TSAT ) 

0257  300  CONTINUE 

0253  C 

0259  C  •»*"••**•••*•*«•**«••  *•*•••***'•'•«*•»•«“•***•**■••■»•**•*•**»•*  •*•■*»•**•* 

026  0  C 

0261  C  END  TRIAL  STOP  TIME  COMPUTATION  PROCEDURES 

0262  C 

0263  CaaaaaaawaaaaaawMawaaiMaaaaaaaaaaaaaaaaaaaaMaaaaaaMaaaaaaMMMaaaaco 

0264  C 

0265  C  TIME  IS  LESSER  OF  SATURATION  AND  DESATURATION  TIME. 

0266  C 

0267  TIHE«AMIN1<TSAT,TDSAT> 

0268  2 

0269  C  IF  NEXT  DEPTH  ONLV  "DINC"  SHALLOWER  WE’RE  DONE. 

0270  C 

0271  IF<  <  CDEPTH-SDEPTH > . LE .DINC >  RETURN 

0272  C 

0273  C  IF  TRIAL  STOP  TIME  0.0  OR  9999  THEN  NO  OPTIMISATION/  RETURN. 

0274  C 

0275  IF<T1HE.EO.O.O  .OR.  TIME. GE . 9999 .)  RETURN 

0276  C 

0277  C*»«<****«*««<*mmaamMm**«aMMmOTM««M»*m»*m**»»a.«»*«»*»********» 

0278  C 

0279  C  STOP  TIME  OPTIMIZATION  PROCEDURE 

0260  C 

0281  C  IF  ASCENDING  MORE  THAN  ONE  STOP  DEPTH  INCREMENT  AFTER  TAKING  A 

0282  C  DECOMPRESSION  STOP  SOME  ADDITIONAL  TISSUE  OFFGASSING  NAV  OCCUR 

0283  C  DURING  ASCEHT .  IF  POSSIBLE  THE  STOP  TIME  IS  SHORTENED  UNTIL  THE 
0284  C  DEPTH  OF  THE  FIRST  STOP  <DFS>  AS  COMPUTED  BV  SUBROUTINE  FRSP7  IS 

0285  C  JUST  EQUAL  TO  "SDEPTH" .  THIS  IS  DONE  BY  FIRST  SHORTENING  THE 

0286  C  STOP  TIME  IN  0.1  MIN.  INCREMENTS  UNTIL  "DFS"  EXCEEDS  "SDEPTH"  AND 

0287  C  THEN  SHORTENING  THE  TIME  IN  0.005  MIN.  INCRENENTS  UNTIL  "DFS"  JUST 

0288  C  EOUALS  "SDEPTH" .  THE  OPTIMIZED  TIME  IS  THEN  0.005  MIN.  TOO  LOHC  AT 
0289  C  THE  MOST. 

0290  C 

029 1  Cn»nnnMnMM«MMMMMmMMMwwnMMM<M«n«n*nwM«M» 
0292  C 

0293  C  INITIALIZE  LOGICAL  VARIABLES. 

0294  C 

0295  IDFS-.FALSE. 

0296  FIRSTM* .TRUE. 

0297  C 
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0298  C  STORE  TIS3UE  TENSIONS  AND  CURRENT  "1AD"  TEMPORARILY. 

0299  C 

0300  400  DO  410  1*1 ,  NT1SS 

0301  410  TP<  I  )*P<  1  ) 

0302  IADTHP-1AD 

0303  C 

0304  C  DO  TRIAL  UPOATE  AT  “COEPTH“  AND  FIND  DEPTH  OF  FIRST  STOP. 

03  05  C 

0306  DC-0.0 

030?  TC-TIME 

0308  CALL  UPOT7 

03  09  CALL  FRSP?<  DFS  ) 

031  0  C 

031 1  C  RESTORE  TISSUE  TENSIONS  AND  *IAD*. 

0312  C 

0313  DO  420  t-I.NTISS 

0314  420  P<n-TP<I> 

0313  IAD-IAOTNP 

0316  C 

031?  C  IF  FIRST  STOP  BELOW  “SDEPTH"  TRIAL  STOP  TINE  NAY  BE  TOO  SHORT. 

0318  C 

0319  IF<DFS.GT.SO£PTH)  GO  TO  430 

0320  C 

0321  C  "FIRSTH"  SET  TO  FALSE  AFTER  FIRST  PASS. 

0322  C 

0323  FIRSTN-. FALSE. 

0324  C 

0323  C  IF  “IDFS*  HAS  BEEN  SET  TO  TRUE  BY  THE  PROCEDURE  BELOW  WE'RE  DONE 

0326  C  AS  300N  AS  -DFS"  EOUALS  “SDEPTH" .  WE'RE  ALSO  DONE  IF  THE  TRIAL 

0327  C  STOP  TINE  HAS  DECREASED  TO  0.0. 

0328  C 

0329  IFCDFS  .OR.  TINE. EO.  0.0)  RETURN 

0330  C 

0331  C  SUBTRACT  TINE  IN  0.1  HIH  INCREMENTS  AND  REPEAT  TRIAL  UPDATE  UNTIL 

0332  C  "DFS"  JUST  EflUALS  "SDEPTH" .  TINES  LESS  THAN  0.0  NOT  ALLOWED. 

0333  C 

0334  TIHE-AHAX1<< TINE-0. 1 ), 0. 0) 

0335  GO  TO  400 

0336  C 

0337  C  IF  WE  END  UP  HERE  THE  FIRST  IHE  THROUGH  OPTINIZATION  NOT  POSSIBLE. 

0338  C  AFTER  FIRST  TINE  THROUGH  SET  "F1RSTN*  TO  FALSE. 

0339  C 

0340  430  IF< FIRSTH)  RETURN 

0341  FIRSTH-. FALSE. 

0342  C 

0343  C  INCREASE  TINE  IH  0.005  NIN  INC RE HE NTS  UNTIL  FIRST  STOP  DEPTH 

0344  C  DECREASES  TO  “SDEPTH* .  SETTING  "IDFS"  TO  TRUE  CAUSES  EXIT  FROH  THE 

0345  C  ITERATION  AS  SOON  AS  THIS  HAPPENS. 

0346  C 

0347  TINE-TINE+O. 005 

0348  IDFS*. TRUE. 

0349  GO  TO  400 

0350  C 
0351  C- 
0352  C 
0353  C 
0354  C 
0355  C 


END  OF  STOP  TINE  OPTIMIZATION  PROCEDURE 


ANNEX  B-6 

SUBROUTINE  STIM7 
EXPONENTIAL-EXPONENTIAL  VERSION 
LISTING 


tSTIME  T-00004  IS  ON  CR00012  USING  OOOSt  BLKS  R-0000 


0001 
0002 
0003 
0004 
0005 
0  006 
0007 
0008 
0009 
001  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0013 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
002S 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0033 
0039 
0040 
0041 
0042 

0043 
0044 
0045 
0046 
0  047 
0043 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 


FTN4 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c*## 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  STIH7< TINE, SDEPTH ),  24  SEPT  82  VER  2.1 
EXPONENTIAL -EXPONENTIAL  VERSION 

FINDS  THE  TINE  UNION  NEEDS  TO  BE  SPENT  AT  "CDEPTH"  IN  ORDER 
TO  ASCEND  TO  •SDEPTH" .  "SDEPTH"  IS  USED  TO  COMPUTE  THE  DEPTH  CROW) 
SUBSCRIPT  "IJ"  FOR  ARRAY  "N" .  IF  "SDEPTH"  IS  NOT  AN  EXACT  MULTIPLE 
OF  ‘DINC*  "IJ"  POINTS  TO  THE  NEXT  SHALLOWER  DEPTH  WHICH  IS.  IN 
ORDER  TO  ASCEND  TO  "SDEPTH"  SUFFICIENT  TIME  MUST  BE  SPENT  AT 
"CDEPTH*  SO  THAT  ALL  TISSUE  TENSIONS  BECOME  LESS  THAN  OR  EQUAL  TO 
THE  MAXIMUM  TISSUE  TEHSIONS  IN  THE  "IJ"  ROW  OF  THE  ARRAY  "H" . 

THE  NORMAL  MODE  IS  FOR  THE  NEXT  STOP  TO  BE  ONE  "DINC"  SHALLOWER 
THAN  THE  CURRENT  DEPTH.  WHEN  THE  NEXT  STOP  IS  MORE  THAN  ONE  "DINC* 
SHALLOWER  THE  INITIALLY  COMPUTED  STOP  TIME  IS  SHORTENED  TO  TAKE 
ADVANTAGE  OF  THE  ADDITIONAL  DECOMPRESSION  GAINED  AFTER  THE  FIRST 
"DINC"  OF  ASCENT. 


MMNMMNMttNHWMnHWHMW 

9 

WRITTEN  BY  0 

COR  EDWARD  D.  THALHANN  CMC)  USN  0 

U.S.  NAVY  EXPERIMENTAL  DIVING  0 
UNIT  0 

PANAMA  CITY. FLORIDA  32407  0 

000000000900000000000000000000000000 
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*  VARIABLES  « 


AHBA02  AMBIENT -ARTERIAL  OXYGEN  GRADIENT  CFSW) 

CDEPTH  CURRENT  DEPTH  CFSW  OR  HSW > 

CF  METRIC  CONVERSION  FACTOR 

CP02  CONSTANT  PARTIAL  PRESSSURE  027 

DC  DEPTH  CHANGE  CFSW  OR  MSW> 

DFS  DEPTH  OF  FIRST  STOP  CFSW  OR  NSW) 

DINC  STOP  DEPTH  INCREMENTS  CFSW  OR  HSW) 

FIRSTH  FIRST  TIME  THROUGH  OPTIMIZATION  PROCEDURE? 

FN2  INERT  CAS  I  FACTION 

HLFTM  COMPARTMENT  HALFTIMES  CHIN) 

IAD  INSTANTANEOUS  ASCENT  DEPTH  CFSW  OR  NSW) 

1ADTMP  TEMPORARY  I AO  STORAGE 

IDFS  NAS  "DFS"  EVER  BEEN  GREATER  THAN  "SDEPTH"? 

IJ  DEPTH  CROW)  SUBSCRIPT  FOR  ARRAY  "M" . 

KDSAT  TIME  CONSTANT  FOR  OESATURATING  TISSUE  CI/MIN) 

KSAT  TIME  CONSTANT  FOR  SATURATING  TISSUES  C1/MIN) 

N  COMPARTMENT  MAXIMUM  GAS  TENSION  ARRAY  CFSW) 

NT IBS  NUMBER  OF  HALFTIME  COMPARTMENTS  C9  MAX.) 

P  COMPARTMENT  GAS  TENSION  ARRAY  CFSW) 
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0033  C  PAC02  ARTERIAL  C02  PARTIAL  PRESSURE  <F3W> 

0039  C  PAMB  AMBIENT  PRESSURE  CFSU) 

0060  C  PAN2  ARTERIAL  INERT  CAS  TENSION  < FSU > 

0061  C  PA02  ARTERIAL  02  TENSION  CFSW) 

0062  C  PBOVP  GAS  PHASE  OVERPRESSURE  CFSU) 

0063  C  PH20  PARTIAL  PRESSURE  OF  WATER  VAPOR  <FSU> 

0064  C  PLIN  INERT  CA8  TENSION  AT  ENO  OF  LINEAR  UPDATE  <FSU> 

0065  C  P02  INSPIRED  OXYGEN  PARTIAL  PRESSURE  < ATA) 

0066  C  PVC02  VENOUS  C02  PARTIAL  PRESSURE  (FSW> 

0067  C  PV02  VENOUS  02  PARTIAL  PRESSURE  < FSU > 

0068  C  RATE  RATE  OF  TRAVEL  DURING  DEPTH  CHANGE  (FSU  OR  NSW/MIN) 

0069  C  SDEPTH  NEXT  DEPTH  AFTER  STOP  (FSU  OR  NSW) 

0070  C  SDR  SATURATION -OESATURAT ION  HALFTINE  RATIO 

0071  C  T  TRIAL  NO  DECOMPRESSION  TINE  CHIN) 

0072  C  TC  TINE  CHANCE  DURINC  ASCENT  CHIN) 

0073  C  TDSAT  STOP  TINE  FOR  DE8ATURATIHC  TISSUE  CHIN) 

0074  C  TINE  STOP  TINE  CHIN) 

0075  C  TP  TEMPORARY  GAS  TEHSION  STORAGE  ARRAY 

0076  C  TSAT  STOP  TINE  FOR  SATURATING  TISSUE  CHIN) 

0077  C 
007S  C 

0079  C  NOTE:  FOR  PARTIAL  PRESSURES  UHICH  ARE  IN  FSU.  33  FSU  «  1  ATA. 


0030  C 

0031  C 

0032  CIMMHtHiHMMMWHHMHNHNNHHHNNNIlHMIlHMHHIlHII 

0083  C 

0084  CAAAAAAAAAABABASMAAStARMMMMMMMBtMMRRAtMAARARAAtRBAAMARAAAAAA 
0083  C  MWXWM<MMW<H<MM 

0036  C  *  SUBROUTINES  REQUIRED  • 

0037  C  M<M<MM<MMMM<MM 

0038  C 

0039  C  UPDT7  UPOATES  TISSUE  TENS IONS,  COMPUTES  “IAD* 

0090  C  FRSP7  COMPUTES  OEPTH  OF  FIRST  STOP 

0091  C 

0092  CtMMIUIIHIMMHMHNMHMHNHHMHHUNUNUHUUWIIMHH 

0093  C 

0094  C  MODEL. INPUT  VARIABLES 


0093  C  THESE  ARE  THE  ONLY  VARIABLES  SENT  PROH  THE  NAIN  PROGRAM  TO  THE 

0096  C  MODEL  SUBROUTINES.  THIS  COMMON  STATEMENT  MUST  APPEAR  IN  ALL  MODEL 

0097  C  SUBROUTINES. 

0098  C 

0099  COMMON /MOATA/  TC , DC , CDEPTH , RATE , CP02 , FN2 , P02 . D I NC , CF 

0100  C 

0101  C  MODEL  COMMON 

0102  C  THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROUTINES  ONLY. 

0103  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  NODEL  SUBROUTINES. 

0104  C 

01  03  C0HM0M/PARAtt/M(9*30).»P<9  >,HLFTH<  9).NTIS8»3DRC9),  IAD 

0 1 06  C0HM0N/BLDVL/PAC02 , PH20 , PVC02 , PV02 . AMB A02 , PBOVP 

0107  C 
01 08  C 

0109  LOGICAL  CP02. IDPS. F1RSTM 

0110  REAL  N, K.KSAT.KDSAT. TPC9 ) 

0111  C 

0112  C*****'***********'*****'********'*****************************************' 

01 13  C 

0114  C  INITIALIZATION  PROCEDURE 

01  IS  C 

0116  CHM<MMMMMMMMM<MMMMMMMMMMMMMMMMMMM<MMMM 

01 17  C 
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0118 

0119 

0120 

0121 

0122 

0123 

0)24 

0125 

0126 

0127 

0126 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0136 

0139 

0140 

0141 

0142 

0143 

0144 

0143 

0146 

0147 

0148 

0149 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0160 

0161 

0162 

0163 

0164 

0163 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0173 

0176 

0177 


C  COMPUTE  AMBIENT  PRESSURE  IN  FSU. 

C 

PAMB-CDEPTH*CF*33 . 

C 

C  IP  CP02  SET  USE  CONSTANT  P02  MODE  FOR  COMPUTING  P02.  COMPUTE 
C  ARTERIAL  INERT  CAS  TENSION. 

C 

P A02-<  P  AMB-PH20  >•<  1  -FH2  )-  AMBA02 

IF<  CP02  >  PA02*>P 02*33 .  •<  1 . 0-PH20/P AMB  >-AMBA02 

PAN2*PAMS-<  PA02+PAC02+PH20  > 

C 

C  INITIALIZE  SATURATION  AND  DESATURATION  TIMES. 

C 

TDSAT-0. 0 
TSAT-9999 . 

C 

C  COMPUTE  DEPTH  SUBSCRIPT  FOR  ARRAY  *M*  CORRESPONDING  TO  ■SDEPTH“ . 

C 

I J*<  SDEPTH/OINC >*1 

C 

C ****************** ******** ************ ****** ******* ******************** 

c 

C  END  OP  INITIALIZATION 

C 

c ************************* ***** ****************** *********************** 

C 

c**************** ******************************** *********************** 

C 

C  TRIAL  DESATURAT ION  AND  SATURATION  STOP  TIME  COMPUTATION  PROCEDURE 

C 

C  STOP  TINE  IS  THE  TIME  AT  UHICH  TISSUE  DISSOLVED  INERT  GAS  TENSION 

C  <P<1>)  EQUALS  THE  MAXIMUM  PERMISSIBLE  TENSION  AT  THE  NEXT  DESIRED 

C  DEPTH.  AT  A  GIVEN  STOP  SOME  TISSUES  MAY  BE  SATURATING.  OTHERS 

C  DESATURATING.  THE  STOP  TINE  IS  THE  LESSER  OF  THE  SATURATION  TIME 

C  AND  DESATURATION  TIME  TO  THE  MAXINUN  VALUE  IN  ARRAY  -MV 
C 

c ************************ ****** ***************************************** 

c 

C  COMPUTE  TRIAL  SATURATION  OR  OESATUR AT ION  STOP  TIME  FOR  EACH  TISSUE 

C 

DO  300  1*1 , NTISS 
C 

C  COMPUTE  TIME  CONSTANTS  FOR  SATURATING  AMO  DESATURATING  TISSUES. 

C 


KSAT*ALOC<  2 . 0  VHLFTH<  I  > 

KDSAT-KSAT»SDR< 1 > 

IF  TISSUE  SATURATING  CO  TO  SATURATION  TIME  COMPUTATION. 
IF<P< I ).LE.PAN2>  60  TO  100 


C 

C 

C 


PINO  TRIAL  STOP  TIME  FOR  DESATURATING  TISSUES 


C 

C  IP  TISSUE  TENSION  LESS  THAN  THE  MAXIMUM  PERMISSIBLE  TENSION  THEN 

C  THE  TRIAL  STOP  TIME  IS  0.0. 

C 


06-3 


T-0.0 

!F<P<D.LE.M<I,IJ)>  CO  TO  SO 


0I7S 
Ot  79 
0180 
0181 
0182 
0183 
0184 
0139 
0186 
0137 
0138 
0189 
0190 
0191 
0192 
0193 
0194 
01 9S 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0203 
0206 
0207 
02  08 
0209 
021  0 
0211 
0212 
0213 
0214 
0219 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0229 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0239 
0236 
0237 


C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

so 

c 


IF  ARTERIAL  TENSION  GREATER  THAN  MAXIMUM  PERMISSIBLE  TENSION  THEN 
STOP  TINE  IS  INFINITE  <9999  H1N.>. 

T-9999 . 

I F<  P AN2 . GE . H( I , I J ) >  CO  TO  SO 
COMPUTE  SATURATION  STOP  TIME. 

T«<  1  /KDSAT  )«AL  0C<  <  P<  I  I-PAN2  >/<  M<  I ,  I J  5-PAN2  >  > 

LARGEST  ALLOWABLE  TINE  IS  9999  MIN.  WHICH  IS  ESSENTIALLY  INFINITE. 
IF<  T . CT . 9999 . >  T-9999. 

SAVE  LARGEST  DESATURATION  TIME  COMPUTED  SO  FAR. 

TOSAT-AHAX 1 <  TDSAT , T  5 
GO  TO  300 


C 

c 

c 


TRIAL  STOP  TIME  COMPUTATION  FOR  SATURATING  TISSUES 


C 

C  SATURATION  TIME  IS  0.0  IF  TISSUE  TENSION  ALREADY  GREATER  THAN  THE 
C  MAXIMUM  PERMISSIBLE  VALUE. 

C 

100  T-0.0 


IF<  P<  I  )  .  GE  .  H(  I ,  I J  )  )  GO  TO  130 
C 

C  WILL  NEVER  REACH  MAXIMUM  VALUE  IF  ARTERIAL  TENSION  LES8  THAN  THE 
C  MAXIMUM  PERMISSIBLE  VALUE. 

C 


T-9999 . 

IF<  PAN2.  LE .  H<  I  ,  I  J)  )  CO  TO  ISO 
C 

C  COMPUTE  SATURATION  TIME. 

C 


C 

C 

C 

130 

C 

C 

c 

C 

300 

C 

C<* i 
C 

c 

c 


T-<  1  /KSAT  >*ALOC<  <  P<  I  >-PAN2  V<  N<  I .  I J  >-P  AN2  >  > 

IF< T . LT .0.0)  T-0.0 

SAVE  THE  SMALLEST  DESATURATION  TIME  SO  FAR. 

TSAT-AM I N 1 <  T , TSAT  > 

END  OF  LOOP.  60  BACK  AND  DO  ANOTHER  TISSUE  OR  OROP  THROUGH  IF  ALL 
"NTISS"  TISSUES  DONE. 

CONTINUE 


END  TRIAL  STOP  TIME  COMPUTATION  PROCEDURES 


C 


B6-4 


0233  C  TIME  IS  LESSER  OF  SATURATION  AND  DE SATURATION  TIME. 

0234  C 

0240  TIME«AHIN1<T SAT , TDSAT  > 

0241  C 

0242  C  IF  NEXT  DEPTH  ONLY  *DINC*  SHALLOUER  WERE  OONE . 

0243  C 

0244  1F<  <CDEPTH-SDEPTH).LE .DINC )  RETURN 

0243  C 

0246  C  IF  TRIAL  STOP  TINE  0.0  OR  9939  THEN  NO  OPTIMIZATION,  RETURN. 

024?  C 

02^8  IF< TINE . EO .0.0  .OR.  TINE , GE . 9999 . >  RETURN 

0249  C 

0231  C 

0232  C  STOP  TINE  OPTIMIZATION  PROCEDURE 

0233  C 

0254  C  IF  ASCENDING  MORE  THAN  ONE  STOP  DEPTH  INCREMENT  AFTER  TAKING  A 

0233  C  DECOMPRESSION  STOP  SOME  ADDITIONAL  TISSUE  OFFGASSING  MAY  OCCUR 

0236  C  DURING  ASCENT.  IF  POSSIBLE  THE  STOP  TINE  IS  SHORTENED  UNTIL  THE 

023?  C  DEPTH  OF  THE  FIRST  STOP  <DFS>  AS  COMPUTED  BY  SUBROUTINE  FRSP7  IS 

023S  C  JUST  EQUAL  TO  “SDEPTH" .  THIS  IS  DONE  BY  FIRST  SHORTENING  THE 

0259  C  STOP  TINE  IN  0.1  MIN.  INCREMENTS  UNTIL  “DFS“  EXCEEDS  “SDEPTH"  AND 

0260  C  THEN  SHORTENING  THE  TINE  IN  0.003  MIN.  INCREMENTS  UNTIL  “DFS"  JUST 

0261  C  EQUALS  “SOEPTH" .  THE  OPTIMIZED  TIME  IS  THEN  0.003  MIN.  TOO  LONG  AT 

0262  C  THE  MOST. 

0263  C 


0264  CMMtMtnnMmHMWMMmMUMMMMUMtMtunMmiMnunmt 

0263  C 

0266  C  INITIALIZE  LOGICAL  VARIABLES. 

026?  C 

0268  IDFS-. FALSE. 

0269  F IRSTH* . TRUE . 

0270  C 

0271  C  STORE  TISSUE  TENSIONS  AND  CURRENT  “IAD“  TEMPORARILY. 

0272  C 

0273  400  DO  410  1*1,NTISS 

0274  410  TP<  1  )»P<  I  ) 

0275  IADTHP-IAD 

0276  C 

0277  C  DO  TRIAL  UPDATE  AT  “CDEPTH“  AND  FIND  DEPTH  OF  FIRST  STOP. 

0279  C 

0279  OC*0.0 

0280  TC-TIME 

0281  CALL  UP0T7 

0282  CALL  FR3P7<  DFS  > 

0283  C 

0284  C  RESTORE  TISSUE  TENSIONS  AND  “IAO*. 

0283  C 

0286  DO  420  I-1,HTISS 

0287  420  P<  I  >-TP<  I  ) 

0288  I AO* l AOTNP 

0289  C 

0290  C  IP  FIRST  STOP  BELOU  “SDEPTH*  TRIAL  STOP  TINE  MAY  BE  TOO  SHORT. 
0291  C 

0292  IF<  DFS . GT . SDEPTH  >  GO  TO  430 

0293  C 

0294  C  “FIRSTH*  SET  TO  FALSE  AFTER  FIRST  PASS. 

0293  C 

0296  FIRSTH* .FALSE . 

0297  C 
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0298  C  IF  "IDFS"  HAS  SEEN  SET  TO  TRUE  BV  THE  PROCEDURE  BELOW  WE'RE  DONE 

0299  C  AS  SOON  AS  “OFS*  EQUALS  •SDEPTH" .  WE'RE  ALSO  OONE  IF  THE  TRIAL 

0300  C  STOP  TINE  HAS  DECREASED  TO  0.0. 

0301  C 

0302  IF< IDFS  .OR.  TIHE.EO.O.O)  CO  TO  440 

0303  C 

0304  C  SUBTRACT  TINE  IN  0.1  HIN  INCREMENTS  AND  REPEAT  TRIAL  UPDATE  UNTIL 

0303  C  “OFS*  JUST  EQUALS  ‘SDEPTH*.  TINES  LESS  THAN  0.0  NOT  ALLOWED. 

0306  C 

030?  TIME-ANAX1<<TINE-0. I >, 0. 0> 

0308  GO  TO  400 

0309  C 

0310  C  IF  WE  END  UP  HERE  THE  FIRST  I HE  THROUGH  OPTIMIZATION  NOT  POSSIBLE. 
0311  C  AFTER  FIRST  TINE  THROUGH  SET  ‘FIRSTN*  TO  FALSE. 

0312  C 

0313  430  IF<FIRSTN)  RETURN 

0314  FIRSTN-. FALSE. 

0313  C 

0316  C  INCREASE  TINE  IN  0.003  NIN  INCREMENTS  UNTIL  FIRST  STOP  DEPTH 

031?  C  DECREASES  TO  ‘SOEPTH* .  SETTIHG  "IDFS"  TO  TRUE  CAUSES  EXIT  FROM  THE 

0313  C  ITERATION  AS  SOON  AS  THIS  HAPPENS. 

0319  C 

0320  TINE-TINE+0.003 

0321  IDFS-. TRUE. 

0322  CO  TO  400 

0323  C 

0324  c»— — — — — — - ———————— i — — — — 

0323  C 

0326  C  END  OF  STOP  TINE  OPTIMIZATION  PROCEDURE 

0327  C 
0328  C«— 


0329  C 

0330  C  EXIT  SUBROUTINE. 

0331  C 

0332  440  RETURN 

0333  END 

0334  END* 
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ANNEX  B-7 


SUBROUTINE  NLIM7 
LISTING 


4NLIH7  T-00004  IS  OH  CR00013  USING  00038  BLKS  B-0000 


OOOt 
0002 
0003 
0004 
0003 
0006 
0007 
0008 
0009 
001  0 
001  1 
0012 
0013 
0014 
0013 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0  035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0043 
0046 
0047 
0048 
0049 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 


FTN4 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CM* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  HLIM7<  TINE  >,  24  SEPT  82  VER  1.2 


FINDS  THE  NO-DECOMPRESSION  TINE  AT  “CDEPTH-  BY  FIRST  COMPUTING 
A  TRIAL  TIME  WHICH  IS  THE  SHORTEST  TIME  IT  TAKES  ANY  OF  THE  TISSUE 
COMPARTMENTS  TO  SATURATE  TO  ITS  MAXIMUM  SURFACING  TENSION.  THIS 
TIME  IS  THEN  OPTIMIZED  TO  FIND  THE  LONGEST  TIME  WHICH  CAN  BE  SPENT 
AT  “CDEPTH*  WHICH  WILL  ALLOW  ASCENT  TO  THE  SURFACE  AT  “RATE” . ( NOTE 
THAT  THE  TRIAL  TIME  ASSUMED  INSTATANEOUS  ASCENT,;  OPTIMIZATION  IS 
ACCOMPLISHED  BY  USING  SUBROUTINE  FRSP7  TO  FIND  THE  DEPTH  OF  THE 
FIRST  STOP  AFTER  A  TRIAL  TISSUE  UPDATE  AT  “CDEPTH"  FOR  THE  TRIAL 
NO-O  TIME.  THE  TRIAL  HO-O  TIME  IS  INCREASED  IN  0.1  MIN  INCREMENTS 
UNTIL  THE  FIRST  STOP  DEPTH  INCREASES  TO  “DINC’.(THIS  ENSURES  THAT 
THE  TRIAL  TIME  IS  NOT  TO  SHORT.)  ONCE  THI9  IS  OONE  THE  NO-O  TRIAL 
TIME  IS  DECREASED  IN  0.00S  MIN  INCREMENTS  UNTIL  THE  FIRST  STOP 
JUST  DECREASES  TO  ZERO  AGAIN.  AT  THIS  POINT  THE  FINAL  NO-D  TIME  IS 
AT  THE  WORST  0.003  MIN  TOO  LONG. 


889  98 NNMNNM  88  999999 9800  39000993 
9  9 

9  WRITTEN  BY  9 
9  9 
9  COR  EDWARD  D.  THALMANN  (HC>  USN  9 
9  9 
9  9 
9  U.S.  HAW  EXPERIMENTAL  DIVING  9 
9  UNIT  3 
9  PANAMA  CITY. FLORIDA  32407  0 
9  9 
9999999999999999999999998999999989999 


999999 99 999999 99999999 99 9* 


*«*  **•«■**#*** 


*  VARIABLES  * 


A 

AH6A02 

CDEPTH 

CF 

CP02 

DC 

DFS 

DINC 

FN2 

HLFTN 

IAD 

IADTMP 

IDFS 

M 

NTISS 

P 

PAC02 

PAMB 


INTERMEDIATE  RATIO  USED  IN  COMPUTING  *T* 

AMBIENT -ARTERIAL  OXYGEN  GRADIENT  ( FSW > 

CURRENT  DEPTH 

METRIC  CONVERSION  FACTOR 

CONSTANT  PARTIAL  PRESSSURE  02? 

DEPTH  CHANGE 
DEPTH  OF  FIRST  STOP 
STOP  DEPTH  INCREMENTS 
INERT  GAS  FRACTION 
COMPARTMENT  HALFTIMES  (MIN) 

INSTANTANEOUS  ASCENT  DEPTH  (FSW  OR  MSW) 

VARIABLE  TO  TEHORARILY  STORE  CURRENT  VALUE  OF  “IAD*. 
HAS  “DFS"  EVER  INCREASED  TO  “DINC"? 

COMPARTMENT  MAXIMUM  GAS  TENSION  ARRAY  (FSW) 

NUMBER  OF  HALFTIME  COMPARTMENTS  (9  MAX.) 

COMPARTMENT  GAS  TENSION  ARRAY  <FSW> 

ARTERIAL  C02  PARTIAL  PRESSURE  (FSW) 

AMBIENT  PRESSURE  (FSW) 


i 
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y>.  • .  Mtefry*-  Mi 


0033 
0033 
0060 
0061 
0062 
0063 
0064 
0063 
0066 
0067 
0063 
0063 
0070 
0071 
0072 
0073 
0074 
0073 
0076 
0077 
0078 
0073 
0060 
003 1 
0032 
0093 
0094 
0085 
0036 
0037 
0036 
0033 
0030 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
01  01 
01  92 
01  03 
01  04 
01  03 
01  06 
01  07 
01  08 
01  09 
01  10 
01  1 1 
01  12 
01  13 
01  14 
0113 
01  16 
0117 


C  PAN2 

C  PA02 

C  PBOVP 

C  PH  20 

C  P02 

C  PVC02 

C  PV02 

C  RATE 

C  SDR 

C  T 

C  TC 

C  TIME 

C  TP 

C 
C 

C  NOTE:  FOR  PARTIAL  PRESSURES  WHICH  ARE  IN  FSU .  33  FSU«1  ATA . 

C 

c 

C444444444444444444444444444444444 444444 44444444444444 444444444444444444 

c 

04444444444444444464444444 4444 444444 444444 44 44 44 44 44 4444 44 444444 44 444444 

C  *  SUBROUTINES  REQUIRED  • 

C 

C  FRSP7  COMPUTES  DEPTH  OF  FIRST  STOP 

C  UPDT7  UPDATES  HOOEL  OVER  A  SINGLE  TINE  INTERVAL 

C 

C444«44444444444444444444444444*44*44444444444444444444444444«4t444444t4 

c 

C  HOOEL  INPUT  VARIABLES 

C  THESE  ARE  THE  ONLY  VARIABLES  SENT  FROM  THE  MAIN  PROGRAM  TO  THE 

C  MODEL  SUBROUTINES.  THIS  COHHCW  STATEMENT  MUST  APPEAR  IN  ALL  MODEL 

C  SUBROUTINES. 

C 

COMMON/MDATA/  TC . DC . CDEPTH , RATE , CP02 , FN2 , P02 , D I NC , CF 

C 

C  MODEL  COMMON 

C  THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROUTINES  ONLV. 

C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

C 

COMMOH/>PARAM/M<  9 . 3  0  ) ,  P<  9  I ,  HLFTR<  9  5 ,  NTISS ,  SDR<  9  ) ,  I  AO 
C0HH0N/BLDVL/PAC02 , PH20.PVC02, PV02 , AMB A02 , PBOVP 

C 

c 

LOGICAL  CP02.IDFS 
REAL  M 

DIMENSION  TP< 9 ) 

C 

CMMMMMM<MMMM<<  »»»*»»«»»»%«»  <i »*+»»» 

C 

C  INITIALIZATION  PROCEDURE 

C 

C**»»***wwa****«w«M*» •***•••••*»**•* »*»*«*•*•■•»*•*«»•»• 

c 

IDFS-. FALSE. 

PAMB-CDEPTH*CF433 . 

PA02»< PAHB-PH20  )•< 1-FN2>-AMBA02 
C 

C  IF  CP02  SET  USE  CONSTANT  P02  MODE 


ARTERIAL  INERT  CAS  TENSION  (FSU) 

ARTERIAL  02  TENSION  <FSU) 

CAS  PHASE  OVERPRESSURE  < FSW  ) 

PARTIAL  PRESSURE  OF  WATER  VAPOR  (FSU) 

INSPIRED  OXYGEN  PARTIAL  PRESSURE  (ATA) 

VENOUS  C02  PARTIAL  PRESSURE  (FSW) 

VENOUS  02  PARTIAL  PRESSURE  (FSU) 

RATE  OF  TRAVEL  DURING  DEPTH  CHANGE 
SATURAT ION-DESATUR AT IuN  HALFTIME  RATIO 
TRIAL  NO  DECOMPRESSION  TIME  (MIN) 

TIME  CHANCE  DURING  ASCENT  (MIN) 

NO  DECOMPRESSION  TIME  ( M1H  ) 

ARRAY  TO  TEMPORARILY  STORE  COMPARTMENT  CAS  TENSIONS 
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otis  c 

0119  IF<  CP02  >  PA02-P02*33 . •< 1 . 0-PH20/PAMB j-AHBA02 

0120  PAN2»PAH8-<PAG2*PAC02+PH20> 

0121  C 

0122  C  START  8Y  ASSUMINC  MO  DECOMPRESS  TON  TIME  ESSENTIALLY  INFINITE. 

0123  C 

0124  TIME-9998. 

0123  C 
0128  C— 

0127  C 

0128  C  END  OF  INITIALIZATION 

0129  C 

0130  C—————— 

0131  C 
01  32  C— 

0133  C 

0134  C  TRIAL  NO “DECOMPRESS I ON  TIME  COMPUTATION  PROCEDURE 

0133  C 

0136  C  FIND  TIME  REQUIRED  FOR  EACH  TISSUE  TO  SATURATE  TO  ITS  MAXIMUM 

0137  C  SURFACINC  TENSION  *M<I,1>*.  TRIAL  NO  DECOMPRESSION  TIME  IS  THE 

0133  C  SHORTEST  TIME  FOR  ANY  TISSUE  TO  REACH  THIS  VALUE. 

0139  C 

01  40  c— —————— —  ——————————— 

0141  C 

0142  DO  10  I-1.NT1SS 

0143  C 

0144  c  IF  TISSUE  TENSION  GREATER  THAN  SURFACINC  MAX.  ,  NO-DECOMPRESSION 

0143  C  TIME  IS  0.0  . 

0146  C 

0147  T=0,0 

0148  IF<  P<  1  ) .  GE .  H<  1 ,  1  )  >  GO  TO  9 

0143  C 

0130  C  IF  ARTERIAL  INERT  GAS  TENSION  LESS  THAN  SURFACINC  MAX.  TISSUE  CAN 

0131  C  SATURATE  AT  "CDEPTH"  AND  STILL  BE  WITHIN  NQ-OECONPRESSION  LIMITS. 

0152  C 

0133  T-9999. 

0154  IF<  PAN2  .LE.M< I, 1 > ICO  TO  9 

0133  C 

0136  C  COMPUTE  *A*  .  SHOULD  NEVER  BE  LESS  THAN  1.0  UNLESS  ROUNDOFF  ERROR. 
0157  C 

0159  A«<P<  I  )-PAN2V<M<  I,  1  >-PAN«.> 

0159  IF<  A . LT . 1  .0)  A"1  .0 

0160  C 

0161  C  COMPUTE  *T*  FOR  THIS  TISSUE,  SAVE  SHORTEST  TIME  COMPUTED  SO  FAR. 
0162  C 

0163  T HLFTN<  I  VALOG(  2 .  )  >*PLOG<  A  ) 

0164  9  T I  ME«  AM  INKTINE.T) 

0163  10  CONTINUE 

0166  C 

0167  C— — ——————— — ——————— — — — — — — a. — — 


0168  C 

0169  C  DONE  FINDING  TRIAL  MINIMUM  SATURATION  TIME 

0170  C 

0171  C— ——————————————— 

0172  C 

0173  C  STORE  CURRENT  *IAO"  TEMPORARILY. 

0174  C 

0173  IADTMP«IAD 

0176  C 

0177  C  IF  'TIME'  IS  9999i  OR  0.0  NO  OPTIMIZATION  POSSIBLE,  DONE. 


oi 7a  c 

0179  IFCTIME GE.9999,  .OR.  TIHE.EQ.0.0)  GO  TO  40 

0180  C 

01  3  t  C-*-**«— — -a— —  —  —  —  — — —  —  —  —  —  — — —  —  — — — — a— — a — — 

0192  C 

0183  C  NO-OECOMPRESSION  TIME  OPTIMIZATION  PROCEDURE 

0134  C 

0183  C  00  TRIAL  TISSUE  UPDATE  AT  “CDEPTH* .  FIND  THE  DEPTH  OF  THE  FIRST 

Ot 96  C  STOP,  ADJUST  TRIAL  NO-D  TIME  AND  CONTINUE  ITERATING  UNTIL  LONGEST 

0187  C  POSSIBLE  NO-D  TIME  FOUND . 

0188  C 

0199  C— a------ -a— —a—— — -a-——-— 

0190  C 

0191  C  STORE  TISSUE  TENSIONS  TEMPORARILV  IN  ARRAY  “TP*. 

0192  C 

0193  13  DO  16  I-1.NTISS 

0194  16  TP<  I  >*P<  I  ) 

0195  C 

0196  C  DO  TRIAL  UPDATE  AT  “CDEPTH*  AND  FIND  DEPTH  OF  FIRST  STOP. 

0197  C 

0198  DC  -  0 . 0 

0199  TC=TIME 

0200  CALL  UPDT7 

0201  CALL  FRSP7<DFS> 

02  02  C 

0203  C  RESTORE  TISSUE  TENSIONS 

02  04  C 

0203  DO  23  I-1.NTISS 

02  06  23  P<  I  )-TP<  I  ) 

0207  C 

0208  C  IF  FIRST  STOP  AT  OR  BELOU  “DINC*  TRIAL  NO-D  TIME  TOO  LONC . 

02  09  C 

0210  IF<  DFS  .GE.  DINC  >  CO  TO  30 

021  1  C 

0212  C  ADD  TIME  IN  «.1  MIN  INCREMENTS  UNTIL  FIRST  STOP  DEPTH  INCREASES  TO 

0213  C  “DINC*.  THEN  REPEAT  TRIAL  UPDATE.  IF  “IDFS“  HAS  BEEN  SET  TO  TRUE 

0214  C  BY  PROCEDURE  BELOU  THEN  WE 'RE  DONE. 

0213  C 
0216  C 

0217  IF< IDFS  )  GO  TO  40 

0219  TIME«TIME*0. 1 

0219  GO  TO  13 

0220  C 

0221  C  DECREASE  TIME  IN  0.003  MIN  INCREMENTS  UNTIL  FIRST  STOP  DEPTH 

0222  C  DECREASES  TO  0.  SETTING  “IDFS*  TO  TRUE  CAUSES  EXIT  FROM  ITERATION 

0223  C  AS  SOON  AS  THIS  HAPPENS.  NEGATIVE  TIMES  NOT  ALLOWED. 

0224  C 

0223  30  IDFS-. TRUE. 

0226  TIME-AMAX1<< TIME-0. 003), 0. 0) 

0227  C 

0228  C  IF  “TIME"  HAS  DECREASED  TO  ZERO  NO-O  NOT  POSSIBLE,  OONE. 

0229  C 

0230  IF< TIME. EO. 0.0)  CO  TO  40 

0231  GO  TO  13 

0232  C 

0233  C»—»— —————  —  —  —  — — aaaaaaaaaa-  > aaaaaaaaaa ————————— a— 

0234  C 

0233  C  END  OF  NO-DECOMPRESSION  TIME  OPTIMIZATION  PROCEDURE 

0236  C 


ANNEX  B-8 


SUBROUTINE  INIT7 
LISTING 


UNIT?  T.00004  IS  ON  CR00012  USING  00018  BLKS  R-0000 
0001  FTN4 


0002  SUBROUTINE  INIT7  ,  24  SEPT  82  VER  1.1 

0003  C 

0004  C 

0003  C  INITIALIZES  TISSUE  TENSIONS  BV  SATURATING  THEM  AT  “CDEPTH* . 

0006  C 

0007  C 

0008  C  9949990990999999098909999490009990999 

0009  C  •  8 

0010  C  9  WRITTEN  BV  9 

0011  C  9  9 

0012  C  9  COR  EDWARD  D.  THALHANN  ( MC >  USN  9 

0013  C  9  9 

0014  C  9  9 

0015  C  9  U.3.  HAW  EXPERIMENTAL  DIVING  9 

0016  C  9  UNIT  9 

Out?  C  9  PANAMA  CITY. FLORIDA  3240?  9 

0013  C  9  9 

0019  C  9999999999999999999999999999999999999 

0020  C 

0021  C 

0022  C 9444444444 444444 44 94 44 44 44 44 44 4944 44 44 40000449444440 4994940949 9444 44494 

0023  C  *****m**««mi 

0024  C  «  VARIABLES  • 

0023  C  **a**MMM** 

0026  C 

0027  C  AMBA02  AMBIENT-ARTERIAL  OXYGEN  GRADIENT  (FSW) 

0026  C  CDEPTH  CURRENT  OEPTH 

0029  C  CF  METRIC  CONVERSION  FACTOR 

0030  C  CP02  CONSTANT  PARTIAL  PRESSSURE  02? 

0031  C  DC  DEPTH  CHANCE 

0032  C  DINC  STOP  DEPTH  INCREMENTS 

0033  C  FN2  INERT  GAS  FRACTION 

0034  C  HLFTM  COMPARTMENT  HALFTIMES  <MIN> 

0033  C  I AD  INSTANTANEOUS  ASCENT  DEPTH  (FSU  OR  NSW > 

0036  C  M  COMPARTMENT  MAXIMUM  GAS  TENSION  ARRAY  ( FSW ) 

0037  C  NTISS  NUMBER  OF  HALFTIME  COMPARTMENTS  (9  MAX.) 

0038  C  P  COMPARTMENT  GAS  TENSION  ARRAY  (FSW) 

0039  C  PAC02  ARTERIAL  C02  PARTIAL  PRESSURE  <F3W> 

0040  C  PAMB  AMBIENT  PRESSURE  (FSW) 

0041  C  FA02  ARTERIAL  02  TEN810N  <FSW> 

0042  C  PBOVP  GAS  PHASE  OVERPRESSURE  (FSW) 

0043  C  PH20  PARTIAL  PRESSURE  OF  WATER  VAPOR  (FSW) 

0044  C  P02  INSPIRED  OXYGEN  PARTIAL  PRESSURE  (ATA) 

0043  C  PVC02  VENOUS  C02  PARTIAL  PRESSURE  (FSW) 

0046  C  PV02  VENOUS  02  PARTIAL  PRES8URE  (FSW) 

0047  C  RATE  RATE  OF  TRAVEL  DURING  DEPTH  CHANGE 

0048  C  SDR  3ATURATI0M-DESATURATI0H  HALFTIME  RATIO 

0049  C  TC  TIME  CHANGE  DURING  ASCENT  (MIN) 

0030  C 

0031  C 

0032  C  NOTE)  ALL  PARTIAL  PRESSURES  WHICH  ARE  IN  FSW.  33  FSW  *  1  ATA. 

0033  C 

0034  C 

0033  C999449044444 99 90 99 99 99 999999 99  990999 99 49 9049 9999494999 49499999999494449 

0036  C 

0037  C 99 44#4444449 94 99 99 99 40 94 99 99 990494 4949 9949 99 44 99 449499 994494999494 99444 
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0033  C  •**•*••*»•*•••%•*»•»»** 

0059  C  •  SUBROUTINES  REQUIRED  • 

0060  C 
0061  C 

0062  C  NONE 

0063  C 

0064  CIMMNtMMiHHHNHHiiHUHHNHHHHMHHHilHHililHHiill 

0065  C 

0066  C  MODEL  INPUT  VARIABLES 

0067  C  THESE  ARE  THE  ONLY  VARIABLES  SENT  PROM  THE  MAIN  PROGRAM  TO  THE 

0063  C  MODEL  SUBROUTINES.  THIS  COMMON  STATEMENT  MUST  APPEAR  IH  ALL  MODEL 

0069  C  SUBROUTINES. 

0070  C 

0071  COMMON/MDATA/  TC ,OC, COEPTH, RATE , CP02 , FN2 , P02 , DINC , CF 

0072  C 

0073  C  MODEL  COMMON 

0074  C  THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROUTINES  ONLY. 

0075  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IH  ALL  MODEL  SUBROUTINES. 

0076  C 

0077  COMMON/PAR AM/M<  9 . 3  0  5 ,  P<  9  > , HLFTH<  9  > , NTI SS , SDR<  9  > , I AO 

0073  C0MM0N/8LDVL/PAC02. PH20 , PVC02 , PV02. AM8A02. P80VP 

0079  C 
0030  C 

0081  LOGICAL  CP02 

0082  REAL  M 

0093  C 

0084  WW4  »»«»»»«■«»»«»»«»«>«»»»»»»»« 

0083  C 

0036  C  BEGIN  INITIALIZATION 

0087  C 

0083  ClWumMMMMWWWUWMMWMWWMWWWMWMWMWmwMWMMt 

0039  C 

0090  C  COMPUTE  AMBIENT  PRESSURE  ANO  ARTERIAL  02  PARTIAL  PRESSURE. 

0091  C 

0092  PAMB-  CDEPTH*CF-»33 . 

0093  PA02"< PAMB-PH20 >*< 1 -FN2  0-AMBAO2 

0094  IF<  CP02  )  PA02-P02*33 .  *<  1  .  0-PH20/'PAM8  >-AMBA02 

0095  C 

0096  C  SATURATE  ALL  COMPARTMENTS  AT  ‘COEPTH*. 

0097  C 

0098  OO  100  I-1.NTISS 

0099  100  P< I )-PAMB-<PA02*PAC024PH20> 

0100  RETURN 

01 01  C 

01  02  C*W»««»»«WW»M«WMMM»M»MMIM«MMWWMWWWM««MMM»«»MM» 

0103  C 
01 04  C 
0105  C 


END  OF  INITIALIZATION 


ANNEX  B-9 

SUBROUTINE  RCRD7 
LISTING 


♦ 

i 


6RCRD7  T-00004  IS  OH  CR00013  USING  00021  BLKS  R-0000 


0001 
0002 
0003 
0  004 
OOOS 
0006 
0007 
0003 
0009 
001  0 
001  1 
0012 
0013 
0014 
0013 
0016 
0017 
0013 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0028 
0  029 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
0038 
0039 
0040 
0  041 
0042 
0043 
0044 
0043 
0046 
0047 
0048 
0049 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 


FTN4 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RCRD7<  NODE , CNTR ,  LP  >»  24  SEPT  32  VER  1.1 


RECORDS  TISSUE  TENSIONS,  ZERO  TIME  AND  GAS  TENSION  IN  ARRAY  *TT“ 
FOR  LATER  PRINTOUT.  HILL  ALSO  PRINT  ARRAY  *TT“ . 


IWNWNHNNNMMNNMeotfOOWtt 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


WRITTEN  BY 


CDR  EDUARD  D.  THALMANN  <  HC  )  USN 


U.S.  NAVY  EXPERIMENTAL  DIVING 
UNIT 

PANAMA  CITY. FLORIDA  32407 


V 

0 

0 

0 

0 

0 

0 

0 

0 

0 


00# 0800 00 00 00 00 000000 8000000000000000 


C 008000 0000000080 00 00 00 00 00 00 00 00 000000 001 


1004 


c 

c 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


«**»•** *«•«»* 
«  VARIABLES  * 


CDEPTH 

CF 

CPC2 

CNTR 

DC 

D  INC 

FN2 

HLFTH 

I  AD 

LP 

H 

MODE 

NT1SS 

P 

P02 

RATE 

SDR 

TC 

TT 


02? 


CURRENT  DEPTH 
METRIC  CONVERSION  FACTOR 
CONSTANT  PARTIAL  PRESSSURE 
ARRAY  *TT*  SUSCRIPT 
DEPTH  CHANGE 
STOP  DEPTH  INCREMENTS 
IHERT  GAS  FRACTION 
COMPARTMENT  HALFTIMES  (MIN) 

INSTANTANEOUS  ASCENT  DEPTH  (FSU  OR  NSW) 
DEVICE  NUMBER  OF  LINE  PRINTER 
COMPARTMENT  MAXIMUM  CAS  TENSION  ARRAY  (FSW) 
IF  *0*  RECORD.  IF  *1*  PRINTOUT 
NUMBER  OF  HALFTIME  COMPARTMENTS  (9  MAX. ) 
COMPARTMENT  CAS  TENSION  ARRAY  (FSU) 

INSPIRED  OXYGEN  PARTIAL  PRESSURE  (ATA) 

RATE  OF  TRAVEL  DURING  DEPTH  CHANCE 
SATURAT ION-DCS ATURATI ON  HALFTIME  RATIO 
TIME  CHANCE  DURING  ASCENT  (MIN) 

MOOEL  PROFILE  PARAMETER  ARRAY 


NOTE i  ALL  PARTIAL  PRESSURES  UHICH  ARE  IN  FSW.  33  FSW  •  1  ATA. 


C000000000000000000 800000 0000 08 0000000000 0000008000000000000000000000 000 


C000000000000000000000000 00 0000 00000000 00 0080 000000000000000000000000000 


•  SUBROUTINES  REOUIRED  • 
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0038  C 

0039  C  NONE 

0060  C 

0061  COOOOOiOiOOOOOOOOOOO 800# OOOOOOOOSOOO 000006 •# 6800880000808806000068880888 

0062  C 
0063  C 

0064  C  MODEL  INPUT  VARIABLES 

0063  C  THESE  VARIABLES  ARE  SENT  BETWEEN  NOOEL  SUBROUTINES  ONLY. 

0066  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

0067  C 

0068  COMMONXMDATAX  TC.DC , CDEPTH, RATE, CP02. FN2, P02 . D INC , CP 

0069  COMMONXPAR AHXH<  9 . 3  0  > ,  P<  9  > . HLFtM<  9  > , NT I SS , SDR<  9  > . I AO 

0070  C 
0071  C 

0072  LOGICAL  CP02 

0073  REAL  M,  TT< 11.100) 

0074  INTEGER  CNTR 

0073  C 

0076  OATA  TTX1 1 00*0 . OX 

0077  C 

0078  1  FORMAT<  9F1 3 . 5, 2F8 .2 > 

0079  2  FORMAT<  X, 9<  6X, 13*  MIN* >X 

0080  *9< 3X , F4 .2*  SDR* >,4X, *TIME*4X*GAS*X> 

0081  C 

0033  C 

0034  C  BEGIN 

0083  C 

0087  C 

0088  C  IF  ‘MODE*  IS  1  GO  TO  OUTPUT  PROCEDURE. 

0089  C 

0090  IF< MODE  . EO . 1 >  GO  TO  200 

0091  C 

0092  C1***  ■****<«■»■»■ mmmww  w ———■»•  *»•*■»••*»»»••*•■*» 

0093  C 

0094  C  RECORDING  PROCEDURE 

0093  C 

0096  C  AUTOMATICALLY  INCREMENTS  *CNTR*  EACH  TIME  AN  ENTRY  INTO  ARRAY  *TT* 


0097  C  IS  MADE. 

0098  C 

01 00  c 

0101  C  RECORD  TISSUE  TENSIONS 

0102  C 

0103  DO  100  l-I.MTISS 

0104  100  TT<  I ,  CNTR  )»P<  I  ) 

01 03  C 

0106  C  RECORD  ZERO  TIME.  ZERO  TIME  FOR  FIRST  ENTRY  <CNTR»I >  IS  0. 
01 07  C 

0108  IF<CNTR;E0. 1 >  GO  TO  110 

0 1 09  TT< 1 0 . CNTR  >»TC*TT< 1 0 , CNTR- 1 > 

01  1  0  C 

0111  C  RECORD  CAS  TENSION.  VALUE  DEPENDS  OF  WHETHER  CONSTANT  P02 
0112  C  CONSTANT  INERT  CAS  TENSION  8E1NC  USED. 

01  13  C 

0114  110  TT< 1 1 .CNTR >«FN24 100. 

0113  IF<  CP02  >  TT<11,CNTR)-P02 

01 16  C 

0117  C  INCREMENT  COUNTER  TO  NEXT  ENTRY  POSITION  BEFORE  RETURNING. 
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0118  C 

0(18  CNTR«CNTR4| 

0120  RETURN 

0121  C 

0122  C««*«***«****M*M*m**n«»MMmtM4M»«M*< 

0123  C 

0124  C  END  RECORDING  PROCEDURE 

0125  C 

01 26  C  »»»»««»»•••»•*•'•••*»*■•»*»»•»••**»»  *»»»»••»»! 

012?  C 
0128  C 
0128  C 

0130  C  PRINTOUT  PROCEDURE 

0131  C 

0132  C  PRINTOUT  ARRAY  "TT*  THEN  RETURN. 

0133  C 

0134  C  •*••*■**’•»*«»*■*•**  M  *a  **  a»  **•*••  »*«*»' 

0135  C 

0136  200  URITE<LP,2)  HLFTM.3DR 


0137  DO  210  J“1 , CNTR-1 

0138  210  UR  I  TE<  LP , 1 X  TT< 1 ,  J  ) ,  I  a  I <1 1 ) 

0138  RETURN 

0140  C 

0141  C«a*a«aaa4a«aMM**w**a**aa«*mmw««aaa**ai 

0142  C 

0143  C  END  PRINTOUT  PROCEDURE 

0144  C 

0145 

0146  ENO 

0147  ENO* 


ANNEX  B-10 


SUBROUTINE  RDIN7 
LISTING 


4RDIN?  T-00004  IS  OH  CR00012  USING  00038  BLKS  R-0000 


0001 
0  002 
0003 
0004 
0003 
0006 
000? 
0008 
0009 
001  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0  025 
0026 
0027 
0028 
0  029 
0030 
0031 
0  032 
0033 
0034 
0033 
0036 
003? 
0038 
0039 
0040 
0041 
0042 
0  043 
0044 
0043 
0046 
0047 
0048 
0049 
0030 
0031 
0032 
0053 
0034 
0035 
0036 
0037 


SUBROUTINE  RDIN7<  LU, LP , IFILE, METR IC , I GAS. IPRT  > ,  24  SEPT  82  VER  1.1 


REAOS  IN  SUB-FILE  OF  MODEL  INPUT  PARAMETER  FILE  * IFILE*  CONTAINING 
MODEL  PARAMETERS  IN  THE  SPECIFIED  DEPTH  UNITS  AND  STOP  DEPTH 
INCREMENTS.  PRINTS  OUT  MODEL  INPUT  PARAMETERS  AND  THE  VALUES 
IN  COMMON  BLOCK  'SLDVL*  IF  DESIRED. 


0909909000099*099*9909909999909990990 


9  8 
0  WRITTEN  BV  0 
0  0 
0  CDR  EDUARD  D.  THALHANN  < MC>  USN  9 
0  9 
0  9 
0  U.S.  HAW  IXPER IMENTAL  DIVING  0 
0  UNIT  9 
0  PANAMA  CITY, FLORIDA  32407  9 
0  9 
0900000000000900000000009009000000909 


FTN4 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C  644464694444 00 64 44 44 44 44  46  46 44  44 4064 44  66 46 44 46 66 64 6464 64 64 66 6664 44 46 666 

c 
c 
c 
c 

c  * 

c 
c 
c 

C  AMBA02 

C  CDEPTH 

C  CF 

C  CP02 

C  DC 

C  OINC 

C  FN2 

C  HLFTM 

C  I  AO 

C  • IBUF 

C  *IDCB 

C  IDINC 

C  IDPTH 

C  • I ERR 

C  IFILE 

C  I  GAS 

C  *IL 

C  I MODE 

C  I  NCR 

C  IPRT 

C  «LEN 

C  LP 

C  LU 


«  VARIABLES  4 

•n»m4«Mi» 

VARIABLES  ASSOCIATED  WITH  HEWLETT  PACKARD  RTE  IV-B 
OPERATING  SYSTEM 


AMBIENT-ARTERIAL  OXYGEN  GRADIENT  <1-SU> 

CURRENT  DEPTH 

METRIC  CONVERSION  FACTOR 

CONSTANT  PARTIAL  PRESSSURE  02? 

DEPTH  CHANGE 
STOP  OEPTH  INCREMENTS 
INERT  GAS  FRACTION 
TI3SUE  HALFTIMES  <MIN) 

INSTANTANEOUS  A8CENT  DEPTH  <FSW  OR  NSW  I 
MEMORY  ARRAY  FOR  HOLDING  DISK  FILE  DATA 
INPUT  BUFFER  ASSOCIATED  WITH  DISK  FILE  "IFILE" 
INTEGER I2ED  VALUE  OF  "DINC" 

INTEGER IZED  DEPTH 

RTE  IV-B  OPERATING  SYSTEM  ERROR  CODE 
INPUT  FILE  NAME 

ARRAY  FOR  HOLDING  INERT  GAS  LABEL 

SPECIFIED  NUMER  OF  CHARACTERS  TO  BE  READ  FRON  FILE 
DEPTH  UNITS  DESIRED  BY  CALLING  PROGRAM 
STOP  DEPTH  INCREMENT  OF  MOOEL  PARAMETER  SUB-FILE 
PRINTOUT  DESIRED  IF-1 

ACTUAL  NUMBER  OF  CHARACTERS  READ  FROM  DISK  FILE 
DEVICE  HUMBER  OF  LINE  PRINTER 
DEVICE  HUMBER  OF  TERMINAL 
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0053  C  M  MAXIMUM  TISSUE  CAS  TENSION  ARRAY  (FSU) 

0059  C  METRIC  DEATH  UNITS  IN  METERS? 

0060  C  NODE  DEATH  UNITS  OF  MODEL  AARANETER  SUB-FILE 

0061  C  NTISS  NUMBER  OF  HALFTINE  TISSUES  (9  MAX.) 

0062  C  A  TISSUE  CAS  TENSION  ARRAY  (FSU) 

0063  C  AAC02  ARTERIAL  C02  PARTIAL  ARE3SURE  (F3W) 

0064  C  PANS  AMBIENT  PRESSURE  (FSU) 

0065  C  AA02  ARTERIAL  02  TENSION  «FSU> 

0066  C  PSOVP  CAS  PHASE  OVERPRESSURE  (FSU) 

0067  C  PH20  PARTIAL  PRESSURE  OF  WATER  VAPOR  (FSW) 

0068  C  P02  INSPIRED  OXYGEN  PARTIAL  PRESSURE  <  ATA  > 

0069  C  PVC02  VENOU3  C02  PARTIAL  PRESSURE  (FSU) 

0070  C  PV02  VENOUS  02  PARTIAL  PRESSURE  (FSU) 

0071  C  RATE  RATE  OF  TRAVEL  DURING  DEPTH  CHANCE  (FSU  OR  MSU  MIN) 

0072  C  SDR  SATURATION-DESATURATION  HALFTIME  RATIO 

0073  C  TC  TINE  CHANGE  DURING  ASCENT  (MIN) 

0074  C  UNITS  DEPTH  UNITS  OF  MODEL  PARAMETER  SUB-FILE 

0075  C 
0076  C 

0077  C  NOTE:  ALL  PARTIAL  PRESSURES  WHICH  ARE  IN  FSU.  33  FSU  »  1  ATA. 


0073  C 

0079  C 

0080  C**4»» ******••••** •**•*******••*•• ••*•*•#**• •••••••••••••••••••••••*•••• 

0031  C 

0082  CPAAPRU666866AR64A8R6RAR6BMMMMRBMRRRRMM88R46R68RARAR6RA66A8RA6666 

0033  C  <<<MHM<IIMMMWMMM 

0034  C  •  SUBROUTINES  REQUIRED  * 

0035  C  MnMMMMMMMMMM 

0036  C 

0087  C 

0038  C  •  HEWLETT  PACKARD  RTE  IV-B  OPERATING  SYSTEM  SUBROUTINES 

0039  C  AND  FUNCTIONS 

0090  C 

0091  C  4CLOSE  CLOSES  SPECIFIED  DISK  FILE 

0092  C  4CODE  ALLOWS  FOLLOUING  READ  TO  OCCUR  FROM  MEMORY  BUFFER 

0093  C  FMPER  OECODES  AND  PRINTS  RTE  IV-B  ERROR  CODES  OH  ERROR 

0094  C  40PEH  OPENS  SPECIFIED  DISK  FILE 

0095  C  4READF  READS  DATA  FROM  DISK  FILE  INTO  MEMORY  BUFFER 

0096  C 

0097  (^•••••••••••••••••••••••••A •••••••••••••••••••••••••••• •••••••••••••••• 

0098  C 

0099  C  NODEL  INPUT  VARIABLES 


0100  C  THESE  VARIABLES  ARE  SENT  BETWEEN  MODEL  SUBROURINES  ONLY. 

0101  C  THESE  COMMON  STATEMENTS  MUST  APPEAR  IN  ALL  MODEL  SUBROUTINES. 

01  02  C 

0103  CONHON/MDATA/  TC , DC , CDEPTH , RATE , CP02 , FN2 , P02 , D I NC , CF 

0104  COMMOM/-P  AR  AH/NC  9 , 3  0  ) .  P(  9  > ,  HLFTN(  9  ).  NTISS,  SDR(  9),  I  AD 

01 05  C0nn0N/BLDVL/PAC02<  PH2C<  PVC02*  PV02 . AHBA02  <  PBOVP 

01 06  C 
01 07  C 

0108  LOGICAL  CP02. METRIC 

0109  REAL  M, !CAS( 3),UNITS<2  ) 

0110  INTEGER  IDCB<  1 44  ) ,  IFILE<  3  ) .  1BUF<  36  > 

01  1 1  C 
01  12  C 

0113  DATA  IL/36/',UNITS/4H  FSW.4H  MSU/ 

01  14  C 
01  15  C 

0116  10  F0RMAT(9F7.2, 19) 

0117  11  F0RMAT<9F8 . 3 ) 
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0113  12  FORM«T< 213, 3A4 > 

0119  13  FORMAT< 6/,33X"TASLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS"/ 


0120  *33X  " - “/ 

0121  *45X  “<  "3A2"-  "3A4*  >*2/ 

0122  *46X  "TISSUE  HALF -TIMES “2/ 


0123  «5X“  DEPTH  "9<I6“  NIN")> 

0124  14  FORHAT< 13X,9<F6.2“  SDR“>> 

0123  13  FORMAT* 

0123  16  FORMAT< I9,A4,9F10,3> 

0129  17  FORMAT* 2/, 43X, “BLOOD  PARAMETERS" ,//, 33X"< PRESSURE  IN  FSU;  33  FSU-1 

0130  •  ATA)*/> 

0131  18  FORMAT< 7X"PAC02“ 1 2X*  PH20 “ 1 2X“PVC02 *  1 2X“  PV02 “ 1 2X“ AMBA02" 

0132  *1 1X"P80VP*/> 

0133  19  FORMAT  <  7X , F5 ,2,4F17,2,F17,3) 

0134  20  FORMAT* " 1 " > 

0133  C 

0137  C 

0138  C  FILE  RE AO  IN  PROCEDURE 

0139  C 

0140  CaaMMa*aaMmaaMmaanu««MaMaMaaaaaaaaaaaaaaaataaaaaaaa»aaaaaaua 

0141  C 

0142  C  IF  “METRIC"  IS  TRUE  THE  DEPTH  INCREMENTS  ARE  WANTED  IN  METERS. 

0143  C  INTEGERIZE  STOP  DEPTH  INCREMENT  DESIRED  BY  THE  COLLING  PROGRAM. 

0144  C 

0143  IMODE-1 

0146  IF*  METRIC  5IMODE-2 

0147  IDINC-DINC 

0143  C 

0149  C  OPEN  FILE  ’ IFILE"  INTO  INPUT  BUFFER  "IDCB".  ALL  SUBSEQUENT  READS 

0130  C  FROM  "IFILE"  WILL  BE  SPECIFIED  TO  BE  FROM  "IDCB”.  IF  ERROR  OCCURS 

0191  C  PRINT  ERROR  MESSAGE  THEN  STOP . 

0132  C 

0133  CALL  OPEN< IDCB, IERR, IFILE, 3) 

0134  CALL  FMPER* IERR. IFILE, LU> 

0133  IF  < IERR.LT . 0  I  STOP 

0136  C 

0137  C  READ  IN  30  ROMS  OF  MAXIMUM  TISSUE  TENSIONS  FOR  9  TISSUES  FROM  A 

0138  C  A  SUB-FILE  INTO  MEMORY  BUFFER  “IBUF*.  THEN  REAO  VALUES  FROM  ‘I8UF* 

0139  C  INTO  ARRAY  "M" . 

0160  C 

0161  175  DO  180  J-1,30 

0162  CALL  REAOF  < IOCS, IERR, IBUF, IL.LEN > 

0163  CALL  CODE 

0164  READ  <  I BUF  ,JI 

0163  180  CONTINUE 

0166  C 

0167  C  READ  IN  DEPTH  UNITS  “NODE*,  STOP  DEPTH  INCREHENT  AND  INERT  GAS 

0168  C  LABEL  OF  SUB-FILE. 

0169  C 

0170  CALL  REAOF< IDCB, IERR, IBUF, XL, LEN> 

0171  CALL  CODE 

0172  READ  < IBUF, 12)  NODE. INCR, ICAS 

0173  C 

0174  C  REAO  IN  TISSUE  HALFTINES  AND  NUMBER  OF  TISSUES  FRON  SUB-FILE. 

0173  C 

0176  CALL  REAOF< IDCB, IERR, IBUF. IL.LEN) 

0177  CALL  CODE 

B10-3 


91  73 
0179 
0130 
0131 
0132 
0133 
0134 
0133 
01  33 
0137 
01  33 
0133 
u  1  30 
0131 
j  I  32 
0133 
013* 
013; 
0136 
0137 
0133 
0133 
02  00 
02  01 
0202 
02  03 
02  04 
0205 
02  06 
02  07 
0*  OS 
02  03 
0210 
021  1 
0212 
0213 
0214 
0215 
0216 
0217 
0219 
0213 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0223 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 


REAO  < I6UF / 1 0  )  HLFTM,NTISS 
C 

C  REAO  IN  SATURATION-OESATURATION  RATIOS  FROM  SUBFILE. 

C 

CALL  REAOF< IDCB, IERR, IBUF, IL.LEN  > 

CALL  COOE 

REAO  < IBUF ,10)  SOR 
C 

C  IF  THE  SUB-FILE  JUST  REAO  IN  DOES  NOT  HAVE  ITS  PARAMETERS  IN  THE 

C  DESIRED  DEPTH  UNITS  OR  STOP  DEPTH  INCREMENTS  READ  IN  THE  NEXT 

C  SUB-FILE. 

C 

I F< MODE. HE. I MODE  )  00  TO  175 
IF< IDINC.NE. INCR)  GO  TO  175 
C 

C  CL03E  FILE  * IFILE” .  IF  ERROR  OCCURS  PRINT  ERROR  MESSAGE  AND  STOP. 

CALL  CLOSE< IDCB, IERR  > 

CALL  FMPER< IERR, IFtLE,LU) 

:f< ierr.lt. o)  stop 

C 

C  IF  NO  PRINTOUT  DESIRED  THEN  RETURN. 

IF'  TPRT.NE.  I  )  RETURN 

C 

C 

C  END  FILE  REAO  IN 

C 


c 

C  MODEL  PARAMETER  PRINTOUT  PROCEDURE 

C 

c  ***»*»*••***<•  ——————  »M*MUnuMn«**aWM<MM*«M 

c 

C  PRINT  HEADER 

C 

URITE<LP. 13)  I F I LE , I GAS , < HLF TM< I), 1-1 ,NTIS8> 

URITE<  LP ,  14  )<  SOR<  I  ),  1-1  ,NTISS> 

WRITE< LP, 15) 

C 

C  PRINTOUT  TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS. 

C 

DO  200  J-1 ,30 
IDPTH— INCR* J 

URITECLP, 16)  IDPTH, UHITSC MODE ),<M<  I , J  ) , I- 1 , NTI 3S ) 

200  CONTINUE 
C 

C  PRINT  FOOTER 

C 

URITE<LP, 15) 

URITE<LP, 17) 

WRITE<LP, 18) 

C 

C  PRINTOUT  VALUES  IN  COMMON  BLOCK  “BLDVL"  THEN  RETURN. 

C 

UR  I  TE<  LP ,  1 9 )PAC02 , PH20 , P VC  02 , P V02 , AMBA02 , PBO VP 
URITE<  LP , 20 ) 
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ANNEX  C 

PROGRAMS  FOR  COMPUTING 
ASCENT  CRITERIA 


ANNEX  C-l 


PROGRAM  MV  ALU  LISTING 


tnVALU  T >00004  IS  ON  CR00013  USING  00077  BLKS  R-0000 


ooot 
0002 
0003 
0004 
OOOS 
0006 
0007 
0003 
0003 
001  0 
00 1  T 
0012 
0013 
0014 
0015 
0016 
0017 
0013 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0  035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 


FTN4 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CM* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  MVALU< 3,1000),  (0  DEC  82  VER  (.1 


CREATES  MODEL  PARAMETER  INPUT  PILE.  EACH  PILE  HILL  CONTAIN  THREE 
SUBFILES,  THE  FIRST  HILL  HAVE  10  FSU  INCREMENTS.  THE  SECOND  WILL 
HAVE  3  HSU  INCREMENTS  AND  THE  THIRD  5  HSU  IHCREMEHTS. 

THE  ACTUAL  COMPUTATION  OP  THE  MAXIMUM  TISSUE  TENSIONS  IS  DONE  IN 
SUBROUTINE  *HCOMP“ . 

99999999999999999999999999901199999099 
9  9 

9  WRITTEN  BV  9 

9  9 

9  CDR  EDUARD  D.  THALHANN  < MC >  USN  9 

9  9 

9  9 

9  U.S.  NAVV  EXPERIMENTAL  DIVING  9 

9  UNIT  0 

9  PANAMA  CITY, FLORIDA  32407  9 

9  9 

9999999999999909999999099999099990999 

HIMMMMMMMMMMMMMMMMMMMtMMMMMMMMMPMM* 

«M»*******M 

•  VARIABLES  • 

MMCWWM** 


*  VARIABLES  ASSOCIATED  WITH  HEWLETT  PACKARD  RTE  IV-B 
OPERATING  SYSTEM. 


ATMD 

FACTR 

HLFTN 

•  IBUF 
ICONT 

•  IDCB 
•IDCBM 

IDPTH 

•  I  ERR 
IFILE 
I  GAS 

»IL 
I  NCR 
I  OPT 
*IPAR 

•  ISES 
JGAS 
LP 
LU 

MFILE 

MODE 

NT ABLE 

MULTP 

NAM 

NTISS 

SDR 


CONVERTS  DEPTH  UNITS  TO  FSU 

ARRAY  HOLDING  POSSIBLE  VALUES  OF  “ATMD" 

TISSUE  HALFTIME  ARRAY 

MEMORY  BUFFER  FOR  DISK  FILES 

HOLDS  TERMINAL  RESPONSES  TO  QUESTIONS 

DATA  CONTROL  BLOCK  USUALLY  FOR  OUTPUT  FILES 

DATA  CONTROL  BLOCK  USUALLY  FOR  INPUT  FILES 

DEPTH  FOR  ROW  OF  “MTABLE*  TISSUE  TENSIONS 

RTE  IV-B  ERROR  CODE<-  IF  ERROR) 

ARRAY  CONTAINING  OUTPUT  FILENAME 
CURRENT  INERT  GA8  NAME 

SPECIFIED  HUMBER  OF  CHARACTERS  TO  BE  READ  FOR  FILE 

STOP  DEPTH  INCREMENT  READ  FROM  FILE 

NUMBER  OF  THE  OPTION  SELECTED 

LOGICAL  UNIT  NUMBER  ARRAY 

OUMMY  VARIABLE 

NEW  INERT  CAS  NAME 

DEVICE  NUMBER  OF  LINE  PRINTER 

OEVICE  NUMBER  OF  TERMINAL 

ARRAY  CONTAINING  INPUT  FILENAME 

DEPTH  UNITS< 1 -FEET ,  2-METERS) 

MODEL  PARAMETER  INPUT  FILE  OUTPUT  ARRAY 

DEPTH  MULTIPLIER 

ARRAY  HOLDING  PROGRAM  NAME 

NUMBER  OF  TISSUES 

SATURATION-DESATURATION  RATIOS 


STNSN 

UNITS 


MAX I  nun  TISSUE  TENSIONS  FOR  SURFACING 


0053 
0059 
0060 
0061 
0062 
0067 
0064 
006S 
0066 
0067 
0069 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0073 
0079 
0030 
0081 
0032 
0083 
0084 
0085 
0036 
0087 
0038 
0039 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
01  00 
01  01 
0102 
01  03 
01  04 
01  03 
01  06 
01  07 
01  08 
01  09 
01  1  0 
01  11 
01  12 
0113 
01  14 
01  13 
0116 
01  17 


c 

c 

c 

C( 

c 

Cl 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

1 

2 

3 


4 

6 

7 

a 

9 
1  0 
1 1 
12 

13 

14 

13 


*  SUBROUTINES  REQUIRED  • 


•  HEWLETT  PACKARD  RTE  IW-B  OPERATING  SYSTEM  SUBROUTINES 
AND  FUNCTIONS 

‘CLOSE  CLOSES  DISK  FILE 

♦CODE  ALLOWS  NEXT  RE AO  TO  OCCUR  FROM  MEMORY  BUFFER 
•CREAT  CREATES  NEW  FILE 

FMPER  DECODES  AND  PRINTS  RTE  IV-B  ERROR  MESSAGES 
♦LOCLU  LOGICAL  UNIT  •  OF  TERMINAL 
♦LUTRU  LOGICAL  UNIT  NUMBER  OF  TERMINAL  ON  ERROR 

MCOMP  COMPUTES  ONE  SET  OF  MAXIMUM  TISSUE  TENSIONS 

♦POSTN  POSITIONS  DISK  FILE  TO  SPECIFIED  RECORD 
♦PURGE  ELIMINATES  SPECIFIED  FILE  FROM  DISK 

♦READF  READS  DATA  FROM  OISK  FILE  INTO  MEMORY  BUFFER 

♦RMPAR  PASSES  LOGICAL  UNIT  •  OF  TERMINAL  TO  PROGRAM 
♦RUNOF  POSTIONS  FILE  TO  FIRST  RECORD 
♦WRITF  WRITE  FROM  MEMORY  BUFFER  TO  DISK  FILE 

INTEGER  IPAR<  3  ), NAH<  3 ) .  IF ILE<  3  > ,  MF ILE<  3  > ,  I DCB<  1 44  ) ,  I BUF<  36  > , 

*  IbC6H<  1 44  > 

REAL  UNI TS<  2  ) , STNSN<  9 ) , FACTR< 2  ) , ICAS<  3  > , JGAS<  3  > , HLFTMC  9  > , 

♦  3DR<  9),HTA8LE<  3,  9,30  >,  MULTP 

DATA  UNITS/4H  FSW.  4H  NSW/.  FACTR/  1.,  3.28084/'.  IL/36/ , 

•  ICAS/3»4H  /,  NAM  /2HMV , 2HAL , 2HU  /,  SDR, NTISS/9»1 . 0 , 9/ , 

♦  HLFTM/3 . , I  0. ,20. ,40. ,80. , 1 20 . , 1 60 . , 200 . .240./ 

OATA  3TNSN/9*0. 0/ ,  HULTP/1 . 0/ 


FORMAT C  3A2  > 

FORMAT< -SELECT  OPTION  t  1-LIST  ONLY  2-CREATE  NEW  MATRIX  6-EXIT") 
FORMAT< "SELECT  CREATE  OPTION*/ 

♦23X-3-CREATE  MEW  FILE"/ 

♦23X*4-M0DIFY  OLD  FILE"/ 

♦23X“3-CREATE  NEW  FILE  USING  OLD  FILE  AS  INPUT’/ 

*23X»6-EXIT  PROGRAM”) 

FORMAT< "PRINTOUT  MAXIMUM  TISSUE ’ TENSION  TABLES?  (YES/NO)" > 
FORMAT<"  CURRENT  MULTIPLIER,  ENTER  CHANCE"/F9 . 2 ) 

FORMAT* "ENTER  PILE  MAME  FOR  NEW  VALUE  MATRIX") 

FORMAT< " INERT  GAS  IS  "3A4"  ENTER  CHANGE") 

FORHAT<  3A4  > 

FORMAT< 9F7.2.I9) 

FORMAT* "NTISS  -"!«) 

FORMAT< "CURRENT  HALFTIMES , ENTER  CHANGES " /9F8 , 2 > 

FORMAT< "CURRENT  SDR'S,  ENTER  CHANGES’/9F8 . 2 > 

FORHAT< 

♦*  CURRENT  NUMBER  OF  COMPARTMENTS  ACTIVE  IS  *12".  ENTER  CHANGE") 
FORMAT< "  CURRENT  SURFACING  TENSIONS,  ENTER  CHANCES " /9F8 . 3 > 
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01  id 
0119 
0120 
0121 
0122 
0123 
0124 
0123 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0133 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0143 
0146 
0147 
0M? 
0149 
0130 
0131 
0132 
0133 
0134 
0133 
0136 
0137 
0138 
0139 
0160 
0161 
0162 
0163 
0164 
0163 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0173 
0176 
0177 


16 

17 

t8 

19 

20 
21 
22 
23 


24 

25 

26 


27 

28 
C 

O' 

c 

c 

c 


FORMAT*  ) 

FORMAT* "ENTER  FILE  NAME  OF  EXISTING  MATRIX  FILE") 

FORMAT* 9F8 . 3 ) 

FORMAT<  3<  9F7 . 2 ,  /  ) .  14  ) 

FORMA T< 218. 3A4) 

FORMAT< "CONTINUE?  < YES  OR  NO)  _* > 

FORMAT< "DONE  CHANG INC?  CO  ON  TO  COMPUTATION?  <YES  OR  NO)  -* ) 


FORMAT* 6/ 

•SIX  *TA8LE"I2/ 

•SIX  “ - "  4/ 

•33X  ‘TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS’/ 

•  33X  " - */ 

•45X  ** "3A2*-  “3A4*)"2/> 

FORMA T<  46X  "TISSUE  HALF-TIMES*2/ 


*3X"  DEPTH  "9< 16"  MIN")> 
FORMAT* 13X,9*F6. 2“  SDR")) 
FORMAT* 

FORMAT* I9.A4.9F10.3) 
FORHAT<  *  1 " ) 


INITIALIZATION  AND  OPTION  SELECT  PROCEDURE 


C-m«u«  •••■•»•••••••••* ••••••••»••••••••••••»••••••••••••••••••••••••••••' 

C 

C  GET  13CICAL  UNIT  NUMBERS  OF  TERMINAL* LU )  AND  LINE  PRINTER* LP > . 

C 

CALL  RHPAP* IPAR ) 

LU-IPAR* 1 > 

IFCLL.LE.1)  LU-LUTRU*  LU  ) 

IF*  LU . LE . 0  )  LU-LOCLU* ISES) 

LP-6 

C 

C  CET  DESIRED  OPTION  PROM  TERMINAL* 1-PRINT  2-CREATE  6-EXIT  PROGRAM) 

C  IF  1,2  OR  6  NOT  SPECIFIED  ASK  FOR  DESIRED  OPTION  AGAIN. 

C 

40  WRITE*LU,2) 

IOPT-6 

READ*  LU, •  )  I OPT 
IF* IOPT.EO. 1 )  GO  TO  30 
IF* I0PT.E8.6)  STOP 
IF* I0PT.NE.2)  GO  TO  40 
C 

C  SELECT  CREATE  OPTION. < 3-MAKE  NEW  FILE,  4-NODIFY  EXISTING  PILE 

C  3-MAKE  A  NEW  FILE  STARTING  WITH  AN  EXISTING  FILE,  6-EXIT  PROGRAM) 

C  IF  A  3. 4. 3, OR  6  NOT  SPECIFIED  ASK  FOR  DESIRED  OPTION  AGAIN. 

C 

43  WRITE* LU, 3) 

IOPT-6 

READ*  LU, • )  I OPT 
IF* IOPT.EO. 6)  STOP 
IF* IOPT.EO .3)  GO  TO  S3 
IF* IOPT.EO. 3)  GO  TO  30 
IP* IOPT . NE . 4  >  GO  TO  43 


C 

CwMWMMutnaMMnMMnMMMMMnmMMnMtMttmMmMmnnt 

C 


Cl  -3 


0178  C  END  INITIALIZATION  AND  OPTION  SELECT 

0179  C 

0 1 30  C  «*»*»»*«****>•#<•*•**«*****«*>•«*«>«*  ********  *««»**  ***«****»*•«»*  *«*»****>»* 

0131  C 

0193  C 

0194  C  FILE  SPECIFICATION  AND  READ  IN  PROCEDURE 

0135  C 

0136  C  OPENS  NEEDED  INPUT  FILES,  CREATES  NEEDED  OUTPUT  FILES,  AND  READS  I 

0197  C  NEEDED  START  INC  VALUES  FROM  THE  INPUT  FILE. 

0198  C 

0130  C 

0191  C  GET  INPUT  FILE  NAME  FOR  OPTIONS  1,  4,  OR  S.  IF  NO  FILENAME 

0192  C  CO  BACK  AND  ASK  FOR  DESIRED  OPTIONS  AGAIN. 

0193  C 

0194  50  UR1TE<  LU, 1 7 > 

0195  READ<  LU , I >  MFILE 

0196  IF< NFILE.NE.2H  )  GO  TO  33 

0197  IF< IOPT.EG. 1  )  GO  TO  40 

0196  GO  TO  45 

0199  C 

0200  C  IF  OPTION  1  SELECTED  GO  TO  PRINTOUT  PROCEDURE. 

0201  C 

0202  S3  IF< IOPT.EO. 1  >  CO  TO  170 

0203  C 

0204  C  IF  OPTION  4  SELECTED  NO  NEU  OUTPUT  FILE  NEEDED.  CO  OPEN  INPUT  FILE 

0205  C 

0206  IF* IOPT.EO. 4)  GO  TO  58 

02  07  C 

0208  C  GET  NAME  OF  NEU  OUTPUT  FILE  IF  OPTION  3  OR  5  SELECTED. 

0209  C  IF  NO  FILENAME  SPECIFIED  GO  BACK  AND  ASK  FOR  DESIRED  OPTION  AGAIN. 

0210  C 

0211  55  URITE<  LU, 7 ) 

0212  READCLU, 1 )  IFILE 

0213  IF< IFILE. EQ.2H  >  GO  TO  43 

0214  C 

0215  C  CREATE  NEU  OUTPUT  FILE.  IF  AN  ERROR  OCCURS* 1ERR . LT . 0 >  GO  BACK  AND 

0216  C  ASK  FOR  ANOTHER  OUTPUT  FILENAME. 

0217  C 

0218  CALL  CREAT< 1DCB, IERR, IFILE, 29, 4, 0,60  > 

0219  CALL  FNPER< I ERR, NAM, LU) 

0220  IF< IERR.LT.O)  GO  TO  S3 

0221  C 

0222  C  IF  OPTION  3  SELECTED  NO  FILE  INPUT  NEEDED.  VALUES  OF  ALL  VARIABLES 

0223  C  WILL  REMAIN  AS  THEY  UERE -SET  IN  DATA  STATEMENT. 

0224  C 

0225  IF< IOPT.EO. 3)  GO  TO  63 

0226  C 

0227  C  OPEN  INPUT  FILE  IF  OPTION  4  OR  3  3 ELECTED.  CO  BACK  FOR  NEU 

0228  C  ON  ERROR. 

0229  C 

0230  58  CALL  OPEN* IDCBH, IERR, MFICE. 3) 

023 1  CALL  FMPER* I ERR , NAN . LU  > 

0232  IF* IERR.LT.O)  GO  TO  SO 

0233  C 

0234  C  READ  FIRST  RECORD  OF  INPUT  FILE  INTO  SURFACING  TENSION  ARRAY 

0233  C  »STNSN> . 

0236  C 

0237  CALL  READF* IDCBN, IERR, 18UF, ID 
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0238  CALL  FHPER< IERR . NAN, LU ) 

0239  CALL  CODE 

0240  READ( IBUF, 18)  STNSN 

0241  C 

0242  C  POSITION  PILE  TO  31  ST  RECORD  AND  READ  IT  INTO  UNITS  NODE  "NODE* , 

0243  C  STOP  DEPTH  INCREMENT  *INCR“  AND  INERT  CAS  LABEL  ARRAY  "ICAS*. 

0244  C 

024S  CALL  POSNT< IDCBN, IERR, 29, 0) 

0246  CALL  REAOF< IDCBN, I ERR, IBUF, IL> 

0247  CALL  FNPER< IERR. NAN, LU) 

0248  CALL  CODE 

0249  R£AO< IBUF, 20)  NODE, INCR, ICAS 

0230  C 

0251  C  READ  IN  TISSUE  HALFTIMES  INTO  ARRAY  “HLFTN*  AND  THE  NUMBER  OF 

0232  C  TISSUES  INT  “NTISS*  FROM  THE  32ND  RECORD. 

4233  C 

0234  CALL  READF< IDCBN, IERR, IBUF, IL) 

0233  CALL  FNPERC IERR. NAN, LU> 

0236  CALL  CODE 

0237  REA0< IBUF ,10)  HLFTH, NTISS 

0238  C 

0239  C  READ  IN  3ATUR AT I OH-OE SATURAT I ON  RATIOS  INTO  ARRAY  *SDR*  FROM  33RD 
0260  C  RECORD. 

0261  C 

0262  CALL  READF< IDCBN, IERR , IBUF, IL ) 

0263  CALL  FHPER< IERR. NAN, LU) 

0264  CALL  CODE 

0263  READ< IBUF ,10)  SDR 

0266  C 

0267  C  CLOSE  INPUT  FILE  JUST  IN  CASE 

0268  C 

0269  CALL  CLOSE< IDCBN) 

0270  C 

0271  C  WRITE  OUT  STARTING  STNSN, NLFTN, SDR. AND  NTISS  VALUES  TO  TERMINAL. 

0272  C 

0273  63  WRITE<LU, 19)  STNSN, NLFTN, SDR, NTISS 

0274  WRITE<LU.2I > 

0275  C 

0276  C  WANT  TO  CONTINUE?  IF  NOT  GO  BACK  TO  SELECT  DESIRED  OPTION  AGAIN. 

0277  C 

0278  READ<LU, t )  ICONT 

0279  IF< ICONT. NE.2HYE)  GO  TO  43 

0280  C 

0281  CXWMWMMIMMMXWWmMMWWWMXWMWWMWtWWMIWWW* 

0282  C 

0233  C  END  FILE  SPECIFICATION  AND  READ  IN 

0284  C 

0283  C<W<WWWW<MO<WMMA  AMMMAAWMKMMMWHMWmMtMwm 

0286  C 
0287  C 
0288  C 

0289  C  STARTING  VARIABLE  CHANCE  PROCEDURE 

0290  C 

0291  C  ALLOWS  DESIRED  VALUES  TO  BE  CHANGED.  HITTING  A  RETURN  KEY  RETAINS 
0292  C  DISPLAYED  VALUES. 

0293  C 

0294  C  **»•»»•**•■•••»••*<••«•*•*■»*****••***«**.*  «***■•**•****••»■•»*  •»*•*•* 

0293  C 

0296  C  CHANCE  INERT  CAS  NAME. 

0297  C 


Cf-S 


029a  70 

0299 
0300 
03  Ot 

0302  72 

0303  C 
0304  C 
03  OS  C 
0306  75 

03  07 
03  08  C 
0309  C 
031  0  C 
03 1  I 
0312 
0313  C 
0314  C 
0315  C 
0316 
0317 
0318  C 
0313  C 
0320  C 
0321 
0322 
0323  C 
0324  C 
0325  C 
0326 
0327 
0328  C 

032:-  c 

0330  C 
0331  C 
0332  C 
0333 
0334 
0333 
0336  C 
0337  C— 
0338  C 
0339  C 
0340  C 
0341  C-* 

0342  C 
0343  C-* 

0344  C 
0343  C 
0346  C 
0347  C*« 

0348  C 
0349  C 
0330  C 
0331 
0332 

0333  30 

0334  C 
0333  C 
0336  C 
0337  C 


VRITEC LU,  8  >  ICAS 
READCLU,9)  JCAS 
1F< JGAS.EQ.4H  )  CO  TO  75 
DO  72  1-1,3 
ICASC  1  )-JCASC  1  > 

CHANCE  NUMBER  OF  TISSUES. 

URITEC LU, 1 4 >  NTISS 
REAOC LU,*  >  NTISS 

CHANGE  SURFACINC  TISSUE  TENSIONS. 

WRITEC LU, 13)  CSTNSNC I ), 1-1 ,NT1S9 ) 

REAOC  LU,  —  )  STNSN 

CHANCE  TISSUE  HALFTIHES. 

URITE<LU, 12)  < HLFTH< I ), 1-1 , NTISS) 

READC  LU, - )  HLFTM 

CHANCE  SATURATION  OE SATURAT 1  ON  RATIOS. 

URITEC  LU, 13)  <  SDR  < I  ). I- 1 , NTISS > 

RE ADC  LU , - >  SDR 

CHANGE  DEPTH  HULTIPLIER. 

URITECLU.6)  MULTP 
RE ADC LU , - )  MULTP 

IF  CONE  CHANG 1 11C  GO  COMPUTE  TABLE  OF  MAXIMUM  TISSUE  TEMSICMS.  IF 

MORE  CHANGES  OESIREO  OR  TO  REVIEW  VALUES  GO  BACK  TO  BEGINNING  OF 
PROCEDURE . 

WRITEC LU, 22  ) 

REAOCLU.I)  ICONT 

IFC IC0NT.NE.2HYE)  GO  .TO  70 


END  CHANCE  PROCEDURE 


MAX I HUM  PERMISSIBLE  TISSUE  TENSION  COMPUTATION  PROCEDURE 


■M— MmwMMUMHramM 


GET  SURFACINC  TENSIONS  INTO  FIRST  ROW  OF  •NTA8LE" . 

DO  80  K-1 ,3 

DO  80  1-1. NTISS 

MTA8LECK,  1 , 1  )— STNSNC  I  ) 


COMPUTE  THREE  SETS  OF  MAXIMUM  TISSUE  TENSIONS  IN  10  FSW , 3  AND  5 
NSW  INCREMENTS. 


1 


0353 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
037  0 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0333 
0334 
0335 
0386 
0337 
0386 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
04  02 
04  03 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
041  1 
0412 
0413 
0414 
0415 
0416 
0417 


c 

DO  120  K-1 ,3 
NODE-1 

IFOC.CT.  1  )  MODE-2 
C 

C  SELECT  APPROPRIATE  CONVERSION  FACTOR  TO  CONVERT  VALUE  OF  “INCR“  TO 
C  UNITS  OF  FSM.  ALL  MAXIMUM  TISSUE  TENSIONS  IN  UNITS  OF  FSW  BUT  THE 

C  DEPTH  INCREHEHT  MAY  BE  IN  FEET  OR  METERS. 

C 

ATMO-FACTR<  MODE  > 

INCR-1 0 

IF<  K ,EO . 2 )  INCR-3 
IF<  K . EQ  .  3  >  INCR-3 
C 

C  COMPUTE  ONE  SET  OF  MAXIMUM  TISSUE  TENSIONS  FOR  30  DEPTH  INCREMENTS 

C 

CALL  NCOHP<  MTAflL£,K,MULTP, INCR, ATMD  ) 

120  CONTINUE 

c 

C— —————————————————————— 

c 

C  END  MAXIMUM  TISSUE  TENSION  COMPUTATION 

C 

c— ————— ————— ————— ————— ————— ————— ——————————————— 

c 

c— — — — ——————————————————————— - 

c 

C  FILE  OUTPUT  PROCEDURE 

C 

0«-— ————— ———— —————— ————————————— 

c 

C  GET  RID  OF  OLD  FILE  AND  CREATE  NEW  FILE  WITH  SAME  NAME  FOR 
C  OPTION  4  ONLY. 

C 

IF< I0PT.NE.4)  GO  TO  140 
CALL  PURGE< IDC8M, IERR . MFILE ) 

CALL  FNPER< IERR, MFILE ,LU) 

CALL  CREAT< IDCB . IERR , MFILE, 29 , 4 , 0.60) 

CALL  FMFER< IERR , MFILE . LU > 

00  130  1-1,3 
130  IFILE<  I  >-HFILE<  I  > 

C 

C  OPEN  OUTPUT  FILE,  GO  BACK  AND  ASK  FOR  DESIRED  OPTION  ON  ERROR. 

C 

140  CALL  OPEN< IDCB, IERR, IFILE, 3 ) 

CALL  FHPER< IERR, IFILE, LU) 

1F< IERR.LT, 0)  GO  TO  45 
C 

C 

C  WRITE  THREE  SUB-FILES  TO  THE  OUTPUT  FILE. 

C 


C 

C 

C 

C 


DO  160  K-1 ,3 

SET  DEPTH  UNITS  MODE  AND  INCREMENT 


1 


MODE-1 

IF<  K  ■  6T  ,  t  )  MODE-2 


Cl  -7 


0418  1NCR-10 

0419  IF<  K . EQ . 2 5  JNCR-3 

0420  IF<K.EQ.35  INCR-3 

0421  C 

0422  C  URITE  MTABLE  TO  OUTPUT  FILE 
0423  C 

0424  DO  ISO  J-1,30 

0425  URITE<  LU, 1 8  5  <  MTABLEI K, I, J5, 1-1, NTISS) 

0426  CALL  CODE 

0427  UR1TE< IBUF ,18)  < MTA8LE<K, I, Ji, 1*1,95 

0429  CALL  URITF< IOCS, IERR, IBUF, ID 

0429  150  CONTINUE 

0430  C 

0431  C  URITE  OUT  UNITS, DEPTH  INCREMENT ,  AND  INERT  GAS  NAPE. 

0432  C 

0433  URITECLU.205  NODE. INCR.ICAS 

0434  CALL  CODE 

0435  URITE< IBUF, 205  MOOE, INCR , IGAS 

0436  CALL  URI TF< IDCB , IERR , IBUF , 1 4 5 

0437  C 

0438  C  URITE  OUT  HALFTIMES  AND  NTISS 
0439  C 

0440  UR !TE<  LU, 1 1 5  NTISS 

0441  UR1TE<  LU, 10  5  < HLFTH< I  5 , 1-1 , NTI SS 5 

0442  CALL  CODE 

0443  URITE< IBUF, 105  HLFTM, NTISS 

0444  CALL  WR1TF< IDCB , IERR , IBUF , IL 5 

0445  C 

0446  C  URITE  OUT  SOR  VALUES 
0447  C 

0448  URITE<  LU, 105  < SOR< I  5 , I- 1 , NTISS 5 

0449  UR ITE<  LU ,16  5 

0450  CALL  CODE 

0451  URITE< IBUF, 105  SDR. NTISS 

0452  CALL  URITF< IDCB, IERR, IBUF, IL 5 

0433  160  CONTINUE 

0454  C 

0436  C 

0457  C  DONE  WRITING  3  SUB-FILES 

0458  C 

0460  C 

0461  C  ASK  IF  PRINTOUT  WANTED.  IF  "NO"  CLOSE  FILE  AND  CO  BACK  TO  SELECT 

0462  C  DESIRED  OPTION.  IF  "YES*  REWIND  FILE  BEFORE  GOING  TO  PRINTOUT 

0463  C  PROCEDURE . 

0464  C 

0463  WRITER  LU , 4  5 

0466  READCLU.I5  ICONT 

0467  IF< IC0NT.NE.2HYE5  GO  TO  163 

0468  CALL  RWNDF< IDCB, IERR 5 

0469  GO  TO  175 

0470  163  CALL  CLOSE< IDCB, IERR 5 

0471  CALL  FNPER< IERR, NAM, LU 5 

0472  GO  TO  40 

0473  C 

0474  C— ————————————————— 

0473  C 

0476  C  PRINTOUT  PROCEDURE 

0477  C 


0478 

0479 

0480 

0481 

0482 

0493 

0484 

0493 

0436 

0487 

0438 

0489 

0490 

0491 

0492 

0493 

0494 

0493 

0496 

0497 

0498 

0499 

0500 

0301 

0302 

0303 

0304 

0303 

0306 

0307 

0503 

0309 

031  Q 

051  1 

0312 

0313 

0514 

0515 

0516 

0517 

C3I8 

0319 

0520 

0321 

0322 

0323 

0524 

0523 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0533 

0334 

0333 

0336 

0337 


C 

C 

c 

c 

c 

170 


172 

C 


OPTION  1  ENTERS  HERE  BECAUSE  INPUT  FILE  MUST  8E  OPENED  FIRST. 
CO  BACK  TO  GET  ANOTHER  FILENAME  OH  ERROR,  “  IFILE"  AND  "MFILE" 
ARE  THE  SAME  FILE  FOR  OPTION  I. 

CALL  OPEH< IDCB, IERR, MFILE, 3 ) 

CALL  FMPER< IERR . NAM , LU ) 

IF< IERR.LT. 0)  CO  TO  30 
00  172  1-1.3 
IFILE< I 3-HFILE< I ) 

PRINT  OUT  THREE  TABLES  FROM  THE  THREE  SUBFILES. 


C 

175 


180 

C 


200 

C 

c 

C 


210 

C 


DO  21 0  K-1 ,3 
DO  180  J  1.30 

CALL  REAOF< IDCB. IERR, IBUF, IL.LEN) 

CALL  CODE 

READ< IBUF, 183  < MTA8LE< K, I , J >, 1-1 , 9 > 

CONTINUE 

READ  IN  DEPTH  UNITS  MODE, INCR . CAS 

CALL  REAOF< IDCB, IERR, IBUF, IL> 

CALL  CODE 

READ< IBUF , 20 3  MODE, INCR, I CAS 
CALL  REAOF< IDCB, IERR, IBUF. IL 3 
CALL  CODE 

READ< IBUF, 103  HLFTN, NTISS 
CALL  READF< IDCB, IERR , IBUF, IL 3 
CALL  CODE 
READ< IBUF, 103  SDR 

PRINT  HEADER 

URITE<  LP , 23  3  K, IFILE, ICAS 
URITECLP.243  <HLFTH< I  3, 1-1 , NTISS 3 
URITE<  LP , 23  3  C  3DR<  I  3, 1- 1  ,  NT IS3  3 
URI TE< LP , 26 3 
DO  200  4-1 ,30 
IDPTH-INCR— J 

URITE<  LP ,  27  3  IDPTH,  UNITS<  MODE  3,  <  NTABLE<  K,  I ,  J  3,  I- 1  .NTISS  3 
CONTINUE 

PRINT  FOOTER 

URITE<LP,263 
URI TE<  LP , 28  3 
CONTINUE 


C 
C 
C 

C*+******++* ♦ ♦»* 

c 


DONE  PRINTING  SUB-FILES 


Cl  -9 


CLOSE  PILE  ANO  CO  SACX  TO  SELECT  NEi)  OPTION. 


0533 

0339 

0540 

0541 

0542 

0543 

0544 

0545 

0346 

0547 

0548 

0549 

0550 

0551 


C 

CALL  close< idcb. ierr > 
CALL  FNP£R< IERR.NAN.LU) 
GO  TO  40 


C  END  PRINTOUT  PROCEDURE 


END 

ENOS 


CI-1  0 


ANNEX  C-2 

SUBROUTINE  MCOMP 
(Version  1.0) 
LISTING 


iNCOMP  T-00004  IS  OH  CR00014  USINC  0007?  BlKS  R-0000 


000  1 

FTN4 

0002 

SUBROUTINE  MCONP<  MT  ABLE ,  K , MULTP , I  NCR  ,  ATMD  ,  10  DEC  82  VER  l.i 

0003 

c 

0  004 

c 

000S 

c 

COMPUTES  8  TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS  FROM 

0006 

C 

VALUES 

IN  THE  FIRST  ROU  OF  “MTABLE"  <  THE  SURFACING  TENSIONS ) 

0007 

c 

THE  TENSIONS  AT  DEPTH  ARE  RELATED  TO  THE  SURFACING  TENSIONS 

0008 

c 

BY  THE 

RELATIONSHIP: 

0008 

c 

00!  0 

c 

TENSION  AT  DEPTH  »  SURFACING  TENSION  ♦  DEPTH-MULTP 

001  1 

c 

0012 

c 

THE  SURFACING  TENSIONS  AND  THE  DEPTH  MULTIPLIER  <  MULTP  >  MUST 

0013 

c 

SPECIFIED . 

0014 

c 

4  08  89  08  09  00  00  99  89  00  80  99  00  89  80800809  88 

0015 

c 

0  0 

0016 

c 

0  URITTEN  BY  0 

0017 

c 

0  0 

0013 

c 

0  CDR  EDUARD  D.  THALMANN  < MC >  USN  0 

0019 

c 

0  9 

0020 

c 

0  0 

0021 

c 

0  U.S.  NAVY  EXPERIMENTAL  DIVING  0 

0  022 

c 

0  UNIT  •? 

0023 

c 

0  PANAMA  CITY, FLORIDA  32407  0 

0024 

c 

9  9 

0  025 

c 

900  00 00 09 0000 90 000000  0000  000800000000 

0026 

c 

0027 

c»**1 

0  028 

c 

0029 

c 

*  VARIABLES  * 

0030 

c 

«*««*«« «***•« 

0  031 

r 

0  032 

C 

VARIABLES  ASSOCIATED  WITH  HEWLETT  PACKARD  RTE  IV-B 

0033 

c 

OPERATING  SYSTEM. 

0034 

c 

0035 

c 

ATMD 

CONVERTS  DEPTH  UNITS  TO  FSU 

0036 

c 

INCR 

STOP  DEPTH  INCREMENT  READ  FROM  FILE 

0  037 

c 

MTABLE 

ARRAY  HOLDING  THREE  SUB-FILE  VALUES 

0038 

c 

MULTP 

DEPTH  MULTIPLIER 

0039 

c 

0040 

C04MM 

0  041 

c 

0042 

c 

0043 

REAL  NTABLE<  3 ■ 9 , 30  ) , MULTP 

0044 

c 

0  043 

c 

0  046 

c 

COMPUTE 

1  ONE  SET  OF  MAXIMUM  TENSIONS, 

0047 

c 

0  048 

DO  100 

J-2,30 

0049 

DO  1  00 

1-1,9 

0030 

1  00 

MTABLE<K, I, J)-MTABLE<K, I, 0-1 )*MUL  TP* I NCR* ATMD 

0051 

RETURN 

0052 

END 

0033 

ENO* 

ANNEX  C-3 


SUBROUTINE  MCOMP 
(Version  2.0) 
LISTING 


1.1CHPI  T-00004  IS  ON  CR0001S  USINC  00  026  8LKS  R-0000 


0001 
0002 
0003 
0004 
OOOS 
0006 
0007 
OOOS 
006$ 
001  0 
001  1 
0012 
0013 
0014 
0615 
0016 
0017 
0018 
0018 
0020 
0021 
6  022 
0023 
0024 
6025 
0026 
0027 
0029 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
6036 
0037 
0038 
0039 
0040 
0  641 
0  042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 


FTN4 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

w 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CM# 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  MCONP<  MTABLE.  K,NULTP,  INCR,  ATMD  ),  10  DEC  82  VER  2.0 


COMPUTES  A  TABLE  OF  MAX I NUN  PERMISSIBLE  TISSUE  TENSIONS  FROM  THE 
VALUES  IN  THE  FIRST  ROU  OF  "MTABLE"  (THE  SURFACING  TENSIONS  > . 

THE  TENSIONS  AT  DEPTH  ARE  RELATED  TO  THE  SURFACING  TENSIONS  BY  THE 
RELATIONSHIP: 


M  ■  FH2  •  33  •  ( ( SR/R  >•* 1 0  ♦  R  -  1) 


WHERE : 


M  ■  MAXIMUM  PRENISSIBLE  'TISSUE  TENSION  AT  A  GIVEN  DEPTH 
SR  =  SURFACING  TENSION  /  33.»FN2  (THE  SURFACING  RATIO) 

R  «  M  /  (DEPTH  ♦  33  >*FN2  (THE  DEPTH  RATIO) 

FN2-  FRACTION  OF  NITROGEN 

THE  VALUES  OF  *SR*  (SURFACING  RATIOS)  ARE  EMPIRICALLY  DERIVED.  THE 
ABOVE  EQUATION  CANNOT  BE  EXPLICITLY  SOLVED  FOR  *M“  AND  MUST  BE 
SOLVED  BY  ITERATION. 


9900000080080000000000000000908900000 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


WRITTEN  BY 

COR  EDUARD  D.  THALMANN  (MC>  USN 


U.S.  NAVY  EXPERIMENTAL  DIVING 
UNIT 

PANAMA  CITY, FLORIDA  32407 


0000000000000999000000000908000000000 


M##  ############< 


*  VARIABLES  « 

**•»»*»• 


*  VARIABLES  ASSOCIATED  UITH  HEWLETT  PACKARD  RTE  IV-B 
OPERATING  SYSTEM. 

ATMD  CONVERTS  DEPTH  UNITS  TO  FSW 

0N2  CURRENT  AMBIENT  INERT  GAS  TENSION 

0N20LD  PREVIOUS  AMBIENT  INERT  GAS  TENSION 

DY  FIRST  DERIVITIVE  OF  *Y* 

FN2  NITROGEN  FRACTION 

IPRNT  ALWAYS  PRINT  ITERATION  VALUES  IF  -  1 

M  MAXIMUM  TENSION  AT  CURRENT  DEPTH 

NT ABLE  ARRAY  HOLDING  THREE  SUB-FILE  VALUES 

MULTP  DEPTH  MULTIPLIER 

NITR  NUMBER  OF  NEWTON  RAPHSON  ITERATIONS 


C3-I 


0053 
0053 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0063 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0030 
0081 
0082 
0083 
0034 
0085 
0036 
0087 
0088 
0039 
0090 
0091 
0092 
0093 
0094 
0093 
0096 
0097 
0098 
0099 
01  00 
01  01 
01  02 
01  03 
01  04 
01  05 
01  06 
01  07 
01  08 
01  09 
01  1  0 
01  I  I 
01  12 
01  13 
01  14 
01  IS 
01  16 
0117 


C3-2 


COMPUTE  DEPTH  RATIO  *R"  .  "Y*  WILL  BE  EXACTLY  0.0  WHEN  “T"  IS 
THE  CORRECT  MAXIMUM  TENSIOH  FOR  THIS  DEPTH.  *OY*  IS  THE  FIRST 
OERIVITIVE  OF  *Y*. 


01  IS 

C 

0119 

c 

0120 

c 

0121 

c 

0122 

0123 

c 

0124 

0125 

0126 

230 

0127 

c 

0128 

c 

0129 

0130 

0131 

0132 

c 

0133 

240 

0134 

c 

0135 

c 

0136 

0137 

0133 

0139 

0140 

C 

0141 

c 

0142 

c 

0143 

c 

0144 

0145 

c 

0146 

c 

0147 

c 

0148 

0149 

c 

0150 

c 

0151 

c 

0152 

c 

0153 

c 

0154 

c 

0155 

c 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

c 

0163 

c 

0164 

c 

0165 

c 

0166 

0167 

260 

0168 

c 

0169 

c 

0170 

c 

0171 

c 

0172 

0173 

270 

0174 

300 

0175 

c 

0176 

c***> 

0177 

c 

T-MTABLEC  K , I , J- 1  >*< DN2  VC DH20LD  > 

R-TADH2) 

Y*T-33 .  »FN2*<  <  SR/’R  )**)  0+R-t  ) 

DY- 1  ♦<  330  .  *FN2/T  )•<  SR/R  1  0-<  33  .  *FN2/DN2  > 

SEED  ERROR  CHECK  WITH  *T*  AHD  *Y"  OH  FIRST  PASS. 

IFCNITR.GT.O>  CO  TO  240 

T1-T 

Y1-Y 

HITR-HITR+1 

SAVE  ITERATIOH  VALUES  FOR  IH  CASE  PRINTOUT  OCCURS. 

VALITC  1 .NITR5-T 
VALITC2,NITR)«Y 
VALITC3.NITR  )=»OY 
VALITC 4, NITR  VY/DY 

STOP  ITERATION  IF  »Y»  AND  *Y/DY"  ARE  BOTH  LESS  THAN  THE  ACCEPTABLE 
ERROR. 

IF<  ABS<  Y/>OY  ).LE.  0.  OOOt  .AND.  ABS(  Y  >  .LT  .  0 , 001  >  CO  TO  270 
STOP  ITERATIOH  AFTER  10  PASSES  NO  MATTER  WHAT , 

IFCNITR.EG.  I  0  >  GO  TO  270 

IF  "Y"  HAS  UNDERGONE  A  SIGN  CHANCE  SINCE  LAST  RECORDING  *T1*  THEN 
"ABSCT-T1  >"  IS  THE  MAXIMUM  ERROR  FOR  "T*.  IF  THIS  ERROR  IS 
ACCEPTABLE  THEN  STOP  ITERATION.  THIS  TERMINATES  ITERATIONS  WHERE 
" Y*  OSCILLATES  AROUND  2ERO  MORE  RAPIDLY.  IF  "SCHK"  IS  POSITIVE 
THEN  HO  SIGN  CHANCE  OCCURED  AND  NO  ERROR  CHECK  MADE. 

SCHK-SIGNC I . 0,Y>*SICN< ) . 0, Y1 > 

IF<  SCHK . CT . 0  >  GO  TO  260 
TERROR*ABS<  T I -T ) 

IFCTERROR.LT. O. 0001 >  GO  TO  270 

Tl»T 

Y1-V 

COMPUTE  HEW  ESTIMATE  OF  THE  CROSSOVER  TIME  FOR  THE  NEXT  PASS. 

T*T-<  Y/OY  > 

GO  TO  230 

WRITE  OUT  ITERATION  VALUES  IF  CONVERGENCE  TO  ERROR  LIMITS  HAS  NOT 
OCCURED  IH  <0  ITERATIONS  OR  IF  PRINT  MODE  ON  CIPRNT-1). 

IFCNITR.LT. 10  .AND.  ZPRNT.EQ.O)  GO  TO  300 

WRITEC6. 1 )  I. J.K.MTABLEC K, l. J-1 ) , C C  VALITC  N, L > ,  N- 1 , 4  >, L- 1 , N 1 TR  > 
MTABLECK, I, J»«T 


END  NEWTON  RAPH30N  ITERATION 


0«78 

c 

0179 

C 

0130 

0131 

c 

0132 

400 

CONTINUE 

0183 

RETURN 

0184 

ENO 

0135 

END* 

C3-4 


% 


i«Cf1P3  T-00004  IS  ON  CR00013  USING  0001  0  BLKS  R-0000 


0001 
0002 
0003 
0004 
OOOS 
0  006 
0007 
0008 
0009 
001  0 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
3018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0  023 
0  029 
0030 
0031 
0  032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0  042 
0043 
0  044 
0049 
0046 
0047 
0048 
0049 
0090 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


FTN4 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c« 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  HCOMP<  MTA8LE,  K,  MULTP,  INCR,  ATMD  >,  10  DEC  82  VER  2.1 

COMPUTES  8  TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS  FROM  THE 
RELATIONSHIP: 

FOR  DEPTHS  GREATER  THAN  OR  EQUAL  TO  80  FSW: 

M  -  67.46  +  1 . 13?*D  -  <17.46  ♦  0 . 1  57*0  >•<  0 . 5**<  D^O  >  > 
AND  FOR  DEPTHS  LESS  THAN  SO  FSW: 

M  *  29.  -9  *  1 • 035*<  D  ♦  33 > 

WHERE  "D*  IS  DEPTH  IH  FSW  AND  *M“  THE  MAXIMUM  PERMISSIBLE  TISSUE 
TENSION  IN  FSW. 
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0063 
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IF<D.GT.80>  H-29 . 59*1 . 035*<  D*33  > 
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ANNEX  C-5 

MCOMP  VERSION  1.0 
ASCENT  CRITERIA 


TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


CHVALOf-  HELIUM  > 


TISSUE  HALF-TIMES 


DEPTH 

5 

MIN 

1  0 

MIN 

20 

MIN 

40 

MIN 

80 

MIN 

120 

MIN 

160  MIN 

200 

MIN 

24  0 

MIN 

1  .00 

SDR 

1  .00 

SDR 

1  .00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  . 00  SDR 

1  .  00 

SDR 

1  .  00 

SDR 

10 

FSU 

130. 

000 

110. 

000 

83. 

00  0 

66. 

000 

34. 

000 

48. 

000 

44.300 

44. 

000 

43 

.300 

20 

FSU 

140. 

000 

120. 

000 

93. 

000 

76. 

000 

64. 

000 

38. 

000 

34.300 

34. 

000 

33 

.300 

30 

FSU 

130, 

000 

130. 

000 

103. 

000 

86  , 

000 

74. 

000 

68. 

000 

64.500 

64. 

000 

63 

.300 

40 

FSU 

160. 

000 

140. 

000 

113. 

000 

96. 

000 

84. 

000 

78. 

000 

74,300 

74. 

OOO 

73. 

.300 

30 

FSU 

170. 

000 

ISO. 

.  000 

123. 

000 

1  06  . 

000 

94. 

000 

88. 

000 

84.300 

84. 

OOO 

83 

.300 

60 

FSU 

ISO, 

.  000 

160. 

.  000 

133. 

000 

116. 

000 

1  04  . 

000 

98. 

000 

94.300 

94. 

000 

93 

.500 

70 

FSU 

190, 

OOO 

170. 

000 

143. 

000 

126. 

000 

114. 

000 

103. 

000 

104.300 

104. 

OOO 

1  03. 

300 

SO 

FSU 

200. 

,  000 

180. 

,  000 

133. 

000 

136. 

000 

124. 

000 

113. 

000 

114.300 

114. 

ooo 

113 

.300 

90 

FSU 

210. 

.  000 

190. 

.  000 

163. 

000 

146. 

000 

1  34  . 

000 

128  . 

ooo 

124.300 

124. 

000 

123 

,300 

1  00 

FSU 

220, 

,000 

200, 

.  000 

173. 

000 

156. 

000 

144. 

000 

138. 

ooo 

134.500 

134. 

000 

133 

.300 

1 1  0 

FSU 

230. 

.000 

210. 

,  OOO 

183. 

000 

166. 

000 

154. 

000 

148. 

ooo 

144.500 

144. 

ooo 

143 

.300 

120 

FSU 

240. 

,  000 

220. 

.  000 

193. 

00  0 

176, 

000 

164. 

000 

1 33 . 

ooo 

154.300 

134. 

ooo 

133 

.300 

130 

FSU 

230, 

.  000 

230, 

.  000 

203. 

000 

186, 

000 

174. 

000 

168. 

ooo 

164.300 

164. 

ooo 

163 

.300 

140 

FSU 

260, 

.  000 

240, 

,000 

213. 

000 

196. 

000 

184. 

000 

178. 

ooo 

174.300 

174. 

ooo 

173 

.300 

130 

FSU 

270. 

.  000 

230, 

.  000 

223. 

000 

206. 

000 

194. 

000 

188. 

ooo 

184.300 

184. 

ooo 

183 

.300 

160 

FSU 

280. 

.  000 

260, 

.  000 

233. 

000 

216. 

000 

204. 

000 

198. 

ooo 

194.300 

194. 

ooo 

193 

.300 

170 

FSU 

290. 

.  000 

270, 

.  000 

243. 

000 

226. 

000 

214. 

000 

209. 

ooo 

204.300 

204. 

ooo 

203. 

.300 

180 

FSU 

300. 

.  OOO 

280. 

.  000 

233. 

00  0 

236. 

000 

224. 

000 

213. 

ooo 

214.300 

214. 

ooo 

213 

.500 

190 

FSU 

310, 

.  000 

290. 

,  000 

263. 

00  0 

246. 

000 

234. 

000 

228. 

ooo 

224.300 

224. 

000 

223 

.300 

200 

FSU 

320. 

.000 

300, 

.  000 

273. 

000 

236. 

000 

244. 

000 

238. 

000 

234.300 

234. 

ooo 

233 

.300 

21  0 

FSU 

330. 

.  000 

310. 

,000 

283. 

000 

266. 

000 

234. 

000 

248. 

ooo 

244.300 

244. 

ooo 

243 

.300 

220 

FSU 

340, 

,  OOO 

320, 

,  OOO 

293. 

00  0 

276. 

OOO 

264. 

000 

258. 

ooo 

234.300 

234. 

ooo 

253 

.300 

230 

FSU 

350. 

.  000 

330, 

.  000 

303. 

000 

286. 

000 

274. 

ooo 

268. 

000 

264.300 

264. 

ooo 

263 

.300 

240 

FSU 

360. 

.  000 

340. 

.  000 

313. 

000 

296. 

000 

284. 

000 

278. 

ooo 

274.500 

274. 

ooo 

273 

.500 

230 

FSU 

370. 

.000 

330. 

,000 

323. 

00  0 

306. 

000 

294, 

ooo 

288. 

ooo 

284.500 

284. 

ooo 

283, 

.300 

260 

FSU 

380. 

000 

360. 

000 

333. 

000 

316. 

000 

304. 

ooo 

298. 

ooo 

294.300 

294. 

000 

293 

.300 

270 

FSU 

390. 

.000 

370, 

000 

343. 

000 

326. 

000 

314. 

ooo 

308. 

ooo 

304.300 

304. 

ooo 

303. 

300 

28  0 

FSU 

400. 

000 

380. 

,000 

353. 

000 

336. 

000 

324. 

ooo 

318. 

ooo 

314.500 

314. 

ooo 

313. 

300 

290 

FSU 

410. 

000 

390. 

000 

363. 

000 

346. 

000 

334. 

ooo 

328. 

ooo 

324.300 

324. 

ooo 

323 

.300 

300 

FSU 

420. 

.000 

400, 

,  000 

373. 

000 

356. 

000 

344. 

ooo 

338 

ooo 

334.500 

334. 

ooo 

333, 

300 
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TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


<  HVAL02-  HELIUM  ) 


TISSUE  HALF-TIMES 


DEPTH 

5  MIN 

10  MIN 

20  MIN 

40  MIN 

80  MIN 

120  MIN 

160  MIN 

200  MIN 

240  MIN 

1 . 00  SDR 

1 .00  SDR 

t . 00  SDR 

1  .00  SDR 

1  .00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1.00  SDR 

1.00  SDR 

t  0 

FSU 

130.000 

110.000 

88.000 

70.000 

56. 000 

50.000 

43.300 

44 . 000 

43.500 

20 

FSW 

140.000 

120.000 

98.000 

80.000 

66 . 000 

60 . 000 

33.300 

54.000 

33.300 

30 

FSU 

ISO. 000 

130.000 

1 08.000 

90.000 

76. 000 

70. 000 

63.300 

64  000 

63.300 

40 

FSU 

160. 000 

140.000 

1 18. 000 

1 00.000 

86. 000 

80 . 000 

73.300 

74.000 

73.500 

50 

FSU 

170.000 

150.000 

128. 000 

1 1 0. 000 

96.000 

90. 000 

85.500 

84. 000 

83.300 

60 

FSU 

180.000 

160.000 

138.000 

120.000 

106.000 

1 00 . 000 

95.500 

94 . 000 

93.500 

7  0 

FSU 

190.000 

170.000 

148.000 

130.000 

116, 000 

1 1 0. 000 

t  03 . 300 

1 04 . 000 

1 03.500 

SO 

FSU 

200.000 

180.000 

158.000 

140. 000 

126. 000 

120. 000 

113.300 

114. 000 

1  13.500 

90 

FSU 

210.000 

190.000 

168. 000 

130.000 

136. 000 

130. 000 

125.300 

124. 000 

123.500 

1  00 

FSU 

220.000 

200.000 

178.000 

160.000 

146. 000 

140.000 

135.300 

134. 000 

133.300 

1 1  0 

FSU 

230.000 

21  0. 000 

188.000 

170, 000 

136,000 

130.000 

143.300 

144 . 000 

143.300 

120 

FSU 

240.000 

220.  000 

198.000 

180.000 

166.000 

160.000 

'133.300 

134.000 

153.500 

130 

FSU 

250. 000 

230.000 

208.000 

190.000 

176.000 

170. 000 

163.300 

164. 000 

163.300 

140 

FSU 

260.000 

240.000 

218.000 

200. 000 

186.000 

180. 000 

175.300 

174. 000 

173.300 

150 

FSU 

270. 000 

250. 000 

228.000 

210. 000 

196.000 

190. 000 

183.300 

184. 000 

183.500 

160 

FSU 

280. 000 

260.000 

238.000 

220. 000 

206.000 

200.000 

193.300 

194 . 000 

193.300 

170 

FSU 

290.000 

270. 000 

248.000 

230.000 

216.000 

210.000 

203.300 

204  000 

203 . 500 

180 

FSU 

300.000 

280.000 

258.000 

240.000 

226. 000 

220. 000 

213.300 

214. 000 

213.300 

190 

FSU 

310.000 

290. 000 

263.000 

230.000 

236.000 

230. 000 

223.500 

224. 000 

223.500 

200 

FSU 

320.000 

300.000 

278. 000 

260.000 

246. 000 

240. 000 

235.500 

234.000 

233.500 

210 

FSU 

330.000 

310.000 

288.000 

270. 000 

236.000 

230. 000 

-43.500 

244. 000 

243.300 

220 

FSU 

340.000 

320.000 

298.000 

280.000 

266.000 

260. 000 

233.300 

254. 000 

233.500 

230 

FSU 

350.000 

330.000 

308.000 

290.000 

276.000 

270.  000 

265.300 

264. 000 

263.300 

24  0 

FSU 

360.000 

340.000 

318.000 

300.000 

286.000 

280.000 

273.300 

274 . 000 

273.300 

250 

FSU 

370.  000 

350. 000 

328. 000 

310.000 

296.000 

290.000 

283.300 

284  000 

283.300 

260 

FSU 

380.000 

360.000 

338.000 

320.000 

306.000 

300.000 

293.500 

294.000 

293.300 

270 

FSU 

390. 000 

370. 000 

348.000 

330. 000 

316.000 

310. 000 

303.300 

304. 000 

303.300 

280 

FSU 

400.000 

380.000 

338.000 

340.000 

326.000 

320.000 

313.300 

314.000 

313.500 

290 

FSU 

410.000 

390.000 

368.000 

330.000 

336. 000 

330.000 

323.300 

324.000 

323.300 

300 

FSU 

420.000 

400.000 

378.000 

360.000 

346. 000 

340. 000 

333.500 

334.000 

333.500 

t 

l 
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TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


< HVAL03-  HELIUM  > 


TISSUE  HALF-TIMES 


OEPTH 

3 

MIN 

1  0 

MIN 

20 

MIN 

40 

MIN 

so 

MIN 

120 

MIN 

160 

MIN 

200 

MIN 

240 

MIN 

1  .  00 

SDR 

1  .00 

SDR 

1  .00 

SDR 

1  .00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  .  00 

SDR 

1  0 

FSW 

130. 

000 

107. 

000 

83. 

000 

68. 

OOO 

36. 

000 

so. 

000 

43 

.300 

44  . 

000 

43 

.  500 

20 

FSW 

140. 

000 

117. 

000 

93, 

000 

78  , 

000 

66. 

000 

60. 

000 

33 

.300 

54  . 

000 

S3 

.500 

30 

FSW 

130. 

000 

127. 

000 

1  03. 

000 

88. 

000 

76. 

000 

70. 

000 

63 

.300 

64  . 

000 

63 

.500 

40 

FSW 

160. 

000 

137. 

000 

113. 

000 

98. 

000 

86  . 

000 

80. 

000 

75 

.300 

74. 

000 

73 

.500 

SO 

FSW 

170. 

000 

147, 

00  0 

123. 

000 

108, 

000 

96. 

000 

90. 

000 

83 

.300 

84. 

000 

83 

.300 

60 

FSW 

180. 

000 

137. 

000 

133. 

000 

118. 

OOO 

1  06  . 

000 

1  00. 

000 

93 

.300 

94. 

000 

93 

.  500 

70 

FSW 

190, 

000 

167. 

000 

143. 

.  000 

128  , 

000 

116. 

000 

110. 

000 

1  03 

.  300 

104. 

000 

1  03 

.500 

SO 

FSW 

200. 

000 

177. 

000 

133, 

000 

138. 

,  000 

126. 

000 

120. 

000 

113 

300 

114. 

ooo 

113 

.300 

90 

FSW 

210. 

000 

187. 

000 

163. 

000 

148  . 

000 

136. 

000 

130. 

000 

123 

.  300 

124. 

ooo 

123. 

.  300 

t  00 

FSW 

220. 

000 

197. 

000 

173. 

00  0 

138  . 

000 

146  . 

000 

140. 

000 

133 

.300 

134. 

ooo 

1  33. 

,500 

1 1  0 

FSW 

230. 

000 

207. 

000 

183. 

000 

168. 

000 

136. 

000 

130. 

000 

143 

.300 

144  . 

ooo 

143. 

,300 

120 

FSW 

24  0. 

,  000 

217. 

000 

193, 

000 

178, 

000 

166  . 

000 

160. 

000 

133 

.300 

154. 

ooo 

133 

,  500 

130 

FSW 

230. 

000 

227. 

000 

203. 

000 

188. 

000 

176. 

000' 

t  70 . 

000 

165 

.500 

<64  . 

ooo 

163. 

.300 

140 

FSW 

260. 

,  000 

237. 

000 

213. 

00  0 

198  . 

000 

186  . 

000 

180. 

000 

173 

.300 

174. 

000 

173. 

,300 

tso 

FSW 

270. 

000 

247. 

000 

223. 

000 

2  08. 

000 

196. 

000 

190. 

000 

183 

.300 

184  . 

ooo 

1 83 

,300 

160 

FSW 

280. 

000 

237. 

000 

233. 

000 

218. 

000 

206. 

000 

200. 

000 

193 

.300 

194. 

ooo 

193 

,300 

170 

FSW 

290. 

000 

267, 

000 

243. 

000 

228. 

000 

216. 

000 

210. 

000 

203 

.300 

2  04. 

ooo 

203 

.300 

ISO 

FSW 

300, 

000 

277. 

000 

233. 

000 

238. 

000 

226. 

000 

220. 

000 

213 

.500 

214. 

ooo 

213 

.500 

190 

FSW 

310. 

.  000 

287. 

000 

263. 

000 

248. 

000 

236. 

000 

230. 

000 

225 

.500 

224. 

ooo 

223 

.300 

200 

FSW 

320. 

.  000 

297. 

000 

273. 

000 

238. 

OOO 

246. 

000 

240. 

000 

233 

.300 

234. 

ooo 

233 

.300 

21  0 

FSW 

330. 

.  000 

307, 

000 

283. 

000 

268. 

000 

236. 

000 

230. 

000 

245 

.300 

244 

ooo 

243 

.300 

220 

FSW 

340. 

.  000 

317. 

000 

293. 

000 

278. 

000 

266. 

000 

260. 

000 

233 

.500 

234. 

ooo 

233 

.500 

230 

FSW 

350. 

000 

327. 

00  0 

303. 

000 

288, 

000 

276. 

OOO 

270. 

000 

263 

.500 

264. 

ooo 

263 

.300 

240 

FSW 

360. 

000 

337. 

000 

313, 

000 

298. 

000 

286. 

000 

280. 

000 

273 

.500 

274. 

ooo 

273 

.500 

230 

FSW 

370. 

,  000 

347. 

00  0 

323, 

000 

308. 

,  000 

296  . 

000 

290. 

ooo 

283 

.300 

284. 

ooo 

283 

.300 

26  0 

FSW 

380, 

000 

337. 

000 

333. 

000 

318. 

000 

306. 

000 

300. 

000 

295 

.300 

294  . 

ooo 

293 

,500 

270 

FSW 

390, 

000 

367. 

000 

343. 

000 

328. 

000 

316. 

000 

310. 

ooo 

305 

,500 

304. 

ooo 

303. 

300 

28  0 

FSW 

400. 

000 

377. 

000 

333. 

00  0 

338. 

000 

326. 

000 

320. 

ooo 

313 

.300 

314. 

ooo 

313. 

300 

290 

FSW 

410. 

000 

387. 

000 

363. 

00  0 

348. 

000 

336. 

000 

330. 

ooo 

323 

.300 

324. 

ooo 

323. 

300 

300 

FSW 

420. 

000 

397. 

000 

373. 

000 

338. 

000 

346. 

000 

340. 

ooo 

333 

.300 

334. 

ooo 

333. 

300 

TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


<  HVAL04-  HELIUM  ) 


TISSUE  HALF-TIMES 


OEPTH 

3  MIN 

1  0  MIN 

20  MIN 

40  MIN 

80  MIN 

120  MIN 

160  MIN 

200  MIN 

240  MIN 

1 . 00  SDR 

1.00  SDR 

1  .  00  SDR 

1  .  00  SDR 

1  . 00  SDR 

1  . 00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1 . 00  SDR 

to 

FSU 

128.000 

I  03.000 

82. 000 

68 . 000 

56.000 

30. 000 

45.300 

44 . 000 

43.500 

20 

FSU 

138.000 

1 13.000 

92.000 

78 . 000 

66 . 000 

60. 000 

35 .300 

54.000 

53.300 

30 

FSU 

148.000 

123.000 

1 02.000 

38 . 000 

76.000 

70. 000 

63 .300 

64 . 000 

63.500 

40 

FSU 

138.00 

133.000 

112.000 

98 . 000 

86. 000 

80 . 000 

75.500 

74 . 000 

73.500 

30 

FSU 

168.000 

143.000 

122.000 

103. 000 

96 . 000 

90 . 000 

85 .500 

84 . 000 

83.51.0 

60 

FSU 

178. 000 

133.000 

132.000 

118. 000 

1 06 . 000 

1 00. 000 

93.500 

94 . 000 

93.300 

70 

FSU 

188. 000 

163.000 

142. 000 

128 . 000 

116. 000 

110. 000 

103.500 

1 04 . 000 

1 03.300 

30 

FSU 

198. 000 

173.000 

132.000 

133. 000 

126 . 000 

120. 000 

1 13.500 

114. 000 

1  1 3 .300 

90 

FSU 

208. 000 

183.000 

162. 000 

148.000 

1 36 . 000 

1 30 . OO 

125.500 

124. 000 

123 .300 

t  00 

FSU 

218. 000 

<93.000 

172.000 

138. 000 

146 . 000 

140. 000 

133.500 

134  000 

133.S00 

1 1  0 

FSU 

228.000 

203. 000 

182.000 

168. 000 

136. 000 

130. 000 

145.500 

144 . 000 

143.500 

1 20 

FSU 

238. 000 

213.000 

192.000 

178.000 

166.000 

160. 000 

135.500 

154 . 000 

153.300 

130 

FSU 

248.000 

223.000 

202. 000 

188 . 000 

176.000 

170. 000 

163.300 

164. 000 

163.500 

140 

FSU 

258.000 

233.000 

212.000 

198.000 

186.000 

180. 000 

175.500 

174. 000 

173.500 

ISO 

FSU 

268.000 

243.000 

222. 000 

208. 000 

196. 000 

190. 000 

183.500 

184.000 

183.500 

160 

FSU 

278.000 

253.000 

232. 000 

213. 000 

206. 000 

200 . 000 

195.500 

194 . 000 

193.500 

170 

FSU 

288. 00C 

263.000 

242.000 

223.000 

216. 000 

210. 000 

203.500 

204 . 000 

203.300 

130 

FSU 

298.000 

273. 000 

232.000 

238.000 

226.000 

220. 000 

213.300 

214  000 

21 3 .300 

190 

FSU 

308.000 

283. 000 

262.000 

248.000 

236.000 

230.000 

225.300 

224 . 000 

223.300 

200 

FSU 

318.000 

293.000 

272.000 

238.000 

246. 000 

240. 000 

233.500 

234. 000 

233.500 

21  0 

FSU 

328.000 

303.000 

282. 000 

268.000 

236. 000 

230. 000 

243.500 

244. 000 

243.500 

220 

FSU 

338.000 

313.000 

292.000 

278.000 

266.000 

260.000 

233.300 

254 . 000 

253.500 

230 

FSU 

348.000 

323.000 

302.000 

288.000 

276.000 

270. 000 

265.300 

264 . 000 

263.500 

24  0 

FSU 

338.000 

333. 000 

312.000 

298.000 

286.000 

280.000 

273.300 

274. 000 

273.300 

230 

FSU 

368. 000 

343. 000 

322.000 

308 . 000 

296 . 000 

290 . 000 

283.300 

284 . 000 

283.300 

26  0 

FSU 

378.000 

333.000 

332.000 

318. 000 

306. 000 

300. 000 

293.300 

294 . 000 

293.300 

27  0 

FSU 

388.000 

363.000 

342. 000 

328. 000 

316 . 000 

31 0 . 000 

303 . 300 

304  000 

303.300 

280 

FSU 

398.000 

373.000 

352. 000 

338.000 

326. 000 

320 . 000 

313.500 

314 . 000 

313.300 

290 

FSU 

408.000 

383.000 

362.000 

348.000 

336.000 

330.000 

323.300 

324 . 000 

323.300 

300 

FSU 

418.000 

393. 000 

372.000 

338. 000 

346. 000 

340. 000 

333.500 

334. 000 

333.300 

AU  A  12b  064  COMPUILR  ALGOR I  1HMS  USED  IN  LUMPUI1NG  THt  Mft  lb/ 16 

CONSTANT  07  ATA  OXYGEN.. (U)  NAVY  EXPERIMENTAL  DIVING 
UNIT  PANAMA  CITY  FL  E  D  THALMANN  JAN  83  NEDU-l-83 

F/G  6/19 


UNCLASSIFIED 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  •]  963-A 


TM8L2  Of  MAXIMUM  ECRHISSIRLE  TISSUE  TENSIONS 


<NVAL03-  HELIUM  > 


TISSUE  HALF-TIMES 


DffTN 

3  MIN 

10  NIN 

20  NIN 

40  NIN 

80  NIN 

120  NIN 

160  NIN 

200  MIN 

240  NIN 

1.00  SON 

1.00  SDR 

1 .00  SDR 

1.00  SDR 

1.00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1.00  SDR 

1.00  SDR 

IS 

ESN 

12S.000 

100.000 

82.000 

68.000 

36.000 

30.000 

43.300 

44.000 

43.300 

20 

ESN 

133. 000 

110.000 

92.  000 

78.000 

66.000 

60.000 

33.300 

34.000 

33.300 

30 

ESN 

143.000 

120.000 

102.000 

88.000 

76.000 

70.000 

63.300 

64.000 

63.300 

40 

ESN 

133.000 

130.000 

112.000 

98.000 

86.0010 

00.000 

73.300 

74.000 

73.300 

SO 

ESN 

103.000 

140.000 

122.000 

108.000 

96.000 

90.000 

83.300 

84.000 

83.300 

00 

ESN 

173.000 

130.000 

132.000 

118.000 

106. 000 

100.000 

95.300 

94.000 

93.300 

70 

ESN 

183.000 

160.000 

142.000 

128.000 

116.000 

110.000 

103.300 

104. 000 

103.300 

00 

ESN 

193.000 

170.000 

132.000 

138.000 

126.000 

120.000 

113.300 

114.000 

113.300 

90 

ESN 

203.000 

180.000 

162.000 

148.000 

136.000 

130.000 

123.300 

124.000 

123.300 

too 

ESN 

213.000 

190.000 

172.000 

138.000 

146.000 

140.000 

133.300 

134.000 

133.300 

no 

ESN 

223.000 

200.000 

182.000 

168.000 

136.000 

130.000 

143.300 

144.000 

143.300 

120 

ESN 

233.000 

210.000 

192.000 

178.000 

166.000 

160.000 

135.500 

134.000 

133.300 

130 

ESN 

243.000 

220.000 

202.000 

188.000 

176.000 

170.000 

163.300 

164.000 

163.500 

140 

ESN 

235.000 

230.000 

212.000 

198.000 

186.000 

180.000 

173.300 

174.000 

173.300 

ISO 

ESN 

203.000 

240.000 

222.000 

208.000 

196.000 

190.000 

185.300 

184.000 

183.300 

too 

FSN 

273.000 

230.000 

232.000 

218. 000 

206.000 

200.000 

193.300 

194.000 

193.300 

170 

ESN 

283.000 

260.000 

242.000 

228.000 

216.000 

210.000 

203.500 

204.000 

203.300 

ISO 

ESN 

293.000 

270.000 

232.000 

238.000 

226.000 

220.000 

213.300 

214.000 

2t3.S00 

190 

ESN 

303.000 

280.000 

262.000 

248.000 

236.000 

230.000 

225.300 

224.000 

223.300 

200 

ESN 

313.000 

290.000 

272.000 

238.000 

246.000 

240.000 

233.300 

234.000 

233.300 

210 

ESN 

323.000 

300.000 

282.000 

268.000 

2S6. 000 

230.000 

243.300 

244.000 

243.300 

220 

ESN 

333.000 

310.000 

292.000 

278.000 

266.000 

260.000 

233.300 

234.000 

233.300 

230 

ESN 

343.000 

320.000 

302.000 

288.000 

276.000 

270.000 

263.300 

264.000 

263.500 

240 

ESN 

333.000 

330.000 

312.000 

298.000 

286.000 

280.000 

273.300 

274.000 

273.300 

2S0 

FSN 

303.000 

340.000 

322.000 

308.000 

296.000 

290.000 

283.300 

284 . 000 

283.300 

200 

ESN 

373.000 

330.000 

332.000 

318.000 

306 . 000 

300.000 

295.300 

294.000 

293.300 

270 

ESN 

383.000 

360.000 

342.000 

328.000 

316.000 

310.000 

305.500 

304.000 

303.300 

280 

ESN 

393.000 

370.000 

332.000 

338.000 

326.000 

320.000 

313.300 

314.000 

313.300 

290 

ESN 

403.000 

380.000 

362.000 

348.000 

336.000 

330.000 

323.300 

324.000 

323.300 

300 

ESN 

413.000 

390.000 

372.000 

338.000 

346.000 

340.000 

333.300 

334.000 

333.500 

OF  NAXXHUH  PCRH I  S3 1  OLE  TISSUE  TENSIONS 
<HVAL06-  HEL1UN  > 

tissue  HALF-TINES 


DEPTH 

5  HXN 

10  HIM 

20 

NIN 

40  NIN 

_ 

1.00  SON 

1.00  SOS 

1  .00 

SON 

1.00  SOU 

to 

FSW 

120.000 

98.000 

80 

.000 

88.000 

20 

FSW 

130.000 

108.000 

90 

.000 

78.000 

30 

FSW 

140.000 

118.000 

100 

.000 

88. 000 

40 

FSW 

150.000 

128.000 

110 

.000 

98.000 

SO 

FSW 

ISO. 000 

138.000 

120 

.000 

108.000 

SO 

FSW 

170.000 

148.000 

t30, 

.000 

118.000 

70 

FSW 

180.000 

158.000 

140. 

.000 

128.000 

80 

FSW 

190.000 

188.000 

ISO. 

.000 

138.000 

90 

FSW 

200.000 

178.080 

180. 

,000 

148.000 

too 

FSW 

210.000 

188.000 

170. 

,000 

158.000 

110 

FSW 

220.000 

198.000 

180. 

000 

188.000 

120 

FSW 

230.000 

208.000 

190, 

,000 

1 78 . 000 

130 

FSW 

240.000 

218.000 

200. 

,000 

188.000 

140 

FSW 

250.000 

228.000 

210. 

000 

198. 000 

150 

FSW 

200.000 

238.000 

220. 

000 

208. 000 

ISO 

FSW 

270.000 

248.000 

230. 

000 

218.000 

170 

FSW 

280.000 

258.000 

240. 

000 

228.000 

180 

FSW 

290.000 

288.000 

250. 

000 

238. 000 

140 

FSW 

300.000 

278.000 

280. 

000 

248 . 000 

200 

FSW 

310.000 

288.000 

270. 

000 

258 . 000 

210 

FSW 

320.000 

298.000 

280. 

000 

288.000 

220 

FSW 

330.000 

308.000 

290. 

000 

278. 009 

230 

FSW 

340.000 

318.000 

300. 

000 

288.000 

240 

FSW 

350.000 

328.000 

310. 

000 

298. 000 

250 

FSW 

340.000 

338.000 

320. 

000 

308.000 

2S0 

FSW 

370.000 

348.000 

330. 

000 

318.000 

270 

FSW 

390.000 

358.000 

340. 

000 

328 . 000 

2S0 

FSW 

390.000 

388.000 

350. 

000 

338 . 000 

290 

FSW 

400.000 

378.000 

380. 

000 

348. 000 

300 

FSW 

410.000 

388.000 

370. 

000 

358.000 

80 

NIN 

120 

NIN 

160  NIN 

200  NIN 

240  NIN 

1 .00 

SOR 

1.00 

SOR 

1 . 00  SOR 

1 . 00  SOR 

1 . 00  SOR 

58 

.000 

50 

.  000 

45.500 

44.000 

43.500 

88 

.  000 

60 

.000 

55.500 

54.000 

53.500 

78 

.000 

70 

.000 

65.500 

64.000 

63.500 

86 

.  000 

80 

.000 

75.500 

74.000 

73.500 

98 

.  000 

90 

.  000 

85.500 

84.000 

83.500 

108 

.000 

100 

.000 

95.500 

94.000 

93.500 

116 

.  000 

110 

.  000 

105.500 

1 04.000 

103.500 

126, 

.  000 

120 

.  000 

115.500 

114.000 

113.500 

136, 

.000 

130, 

.  000 

125.500 

124.000 

123.500 

146. 

,000 

140, 

,  000 

135.500 

134.000 

133.500 

158 

,000 

150, 

000 

145.500 

144.000 

143.500 

166. 

,  000 

160, 

,  000 

155.500 

154.000 

153.500 

176. 

000 

170. 

,000 

165.500 

164.000 

163.500 

186. 

000 

180. 

000 

175.500 

174.000 

173.500 

198. 

000 

190. 

000 

185. 500 

184.000 

183.500 

206. 

000 

200. 

000 

195.500 

194. 000 

193.500 

216. 

000 

210. 

000 

205.500 

204.000 

203.500 

226. 

000 

220. 

000 

215.500 

214.000 

213.500 

236. 

000 

230. 

000 

225.500 

224.000 

223.500 

246. 

000 

240. 

000 

235.500 

234.000 

233.500 

256. 

000 

250. 

000 

245.500 

244. 000 

243.500 

266. 

000 

260. 

000 

255.500 

254.000 

253.500 

276. 

000 

270. 

000 

265.500 

264.000 

263.500 

286. 

000 

280. 

000 

275.500 

274.000 

273.500 

296. 

000 

290. 

000 

285.500 

284.000 

283.500 

306. 

000 

300. 

000 

295.500 

294.000 

293.500 

316. 

000 

310. 

000 

305.500 

304.000 

303.500 

326. 

000 

320. 

000 

315.500 

314.000 

313.500 

336. 

090 

330. 

000 

325.500 

324.000 

323.500 

346. 

000 

340. 

.,40 

335.500 

334.000 

333.500 

TA6LI  OF  NAXINUN  WM1IIIM  TIMUK  TENSIONS 


<NV8L07- 

HCLIUN 

> 

T ISSUE  N6LF-TINCS 

OKFTH 

9  HIM 

10  NIN 

20  NIN 

40  NIN 

90  NIN 

120  NIN 

too  NIN 

200  NIN 

240  NIN 

1.00  900 

1  .00  908 

1  .00  908 

1.00  908 

1.00  988 

1 .00  968 

1.00  968 

1.00  968 

1.00  968 

to 

FSU 

120.000 

98.000 

90.000 

60.000 

96.000 

90.000 

49.000 

48.000 

47.000 

20 

FU 

132.000 

110.000 

92.000 

90.000 

68.000 

62.000 

61.000 

60.000 

59.000 

30 

FSU 

144.000 

122.000 

104.000 

92.000 

90.000 

74.000 

73.000 

72.000 

71.000 

40 

FSW 

196.000 

134.000 

116.000 

104.000 

92.000 

96.000 

95.000 

84.000 

93.000 

90 

FSU 

168.000 

146.000 

129.000 

116.000 

104.000 

98.000 

97.000 

96.000 

95  000 

«0 

FSU 

180.000 

198.000 

140.000 

128.000 

116.000 

110.000 

109.000 

108.000 

107.000 

70 

FSU 

192.000 

170.000 

192.000 

140.000 

129. 000 

122.000 

121.000 

120.000 

119.000 

00 

FSU 

204.000 

182.000 

164.000 

192.000 

140.000 

134.000 

133.000 

132.000 

131 . 000 

00 

FSU 

216.000 

194.000 

176.000 

164.000 

192. 000 

146.000 

149.000 

144.000 

143.000 

too 

FSU 

228.000 

206.000 

188.000 

176.000 

164.000 

198.000 

197.000 

156.000 

155.000 

no 

FSU 

240.000 

219.000 

200.000 

198.000 

176.000 

170.000 

169.000 

168.000 

167.000 

120 

FSU 

292.000 

230.000 

212.000 

200.000 

188.000 

192.000 

181.000 

180.000 

179.000 

130 

FSU 

264.000 

242.000 

224.000 

212.000 

200.000 

194.000 

193.000 

t92. 000 

191 . 000 

140 

FSU 

276.000 

294.000 

236.000 

224.000 

212.000 

206. 000 

205.000 

204.000 

203.000 

ISO 

FSU 

2S8.000 

266.000 

249.000 

236.000 

224.000 

210.000 

217.000 

216.000 

215.000 

too 

FSU 

300.000 

278.000 

260.000 

248.000 

236.000 

230.000 

229.000 

228.000 

227.000 

170 

FSU 

312.000 

290.000 

272.000 

260.000 

248.000 

242.000 

241 . 000 

240.000 

239.000 

100 

FSU 

324.000 

302.000 

284.000 

272.000 

260.000 

294.000 

253.000 

252 . 000 

251 .000 

190 

FSU 

336.000 

314.000 

296.000 

294.000 

272.000 

266.000 

265.000 

264.000 

263.000 

200 

FSU 

348 . 000 

326.000 

308.000 

296.000 

294.000 

279.000 

277.000 

276.000 

275.000 

210 

FSU 

360.000 

338.000 

320.000 

309.000 

296.000 

290.000 

299.000 

289.000 

287.000 

220 

FSU 

372.000 

390.000 

332.000 

320.000 

308.000 

302.000 

301.000 

300.000 

299.000 

230 

FSU 

384.000 

362.000 

344.000 

332.000 

320.000 

314.000 

313.000 

312.000 

311 .000 

240 

FSU 

396.000 

374.000 

396.000 

344.000 

332.000 

326.000 

325.000 

324.000 

323.000 

290 

FSU 

408.000 

386.000 

368.000 

396.000 

344.000 

339.000 

337.000 

336 . 000 

335.000 

260 

FSU 

420.000 

398.000 

380.000 

368.000 

356.000 

350.000 

349.000 

348.000 

347.000 

270 

FSU 

432.000 

410.000 

392.000 

380.000 

368.000 

362. 000 

361.000 

360.000 

359. 000 

280 

FSU 

444.000 

422.000 

404.000 

392.000 

380.000 

374.000 

373.000 

372.000 

371.000 

290 

FSU 

496.000 

434.000 

416.000 

404.000 

392.000 

396 . 000 

385.000 

394.000 

383.000 

300 

FSU 

468.000 

446.000 

428.000 

416.000 

404.000 

398.000 

397.000 

396.000 

395.000 

TS9L9  OF  HNXXHUH  PCSMIS8X9LE  TISSUE  TENSIONS 
(HVM.N-  HELIUM  > 


TISSUE  HSLF-TXHSS 


DEPTH 

9  NXN 

IS  NXN 

20  WN 

40  NXN 

SO  NXN 

120  NXN 

190  NXN 

200  NXN 

240  NXN 

1.00  SDK 

1.00  SOS 

1.00  SOS 

1.00  SOS 

1.00  SDS 

1.00  SDS 

1.00  SDS 

1.00  SDS 

1 .00  SDS 

IS 

FSU 

120.000 

99.000 

90.000 

OS. 000 

90.000 

49.000 

47.900 

47.000 

44.800 

20 

PSU 

132. 0S0 

110.000 

92.000 

90.000 

99. 000 

00.000 

99.900 

99.000 

99.800 

30 

PS* 

144.000 

122.000 

104.000 

92.000 

90.000 

72.000 

71 .900 

71 .000 

70.900 

4S 

PSU 

190.000 

134.000 

119.000 

IN. 000 

92.000 

N.000 

03.900 

83.000 

82.800 

9S 

PSU 

1 OS. 000 

140.000 

129.000 

110.000 

IN. 000 

90. 000 

99.900 

99.000 

94.800 

SO 

PSU 

ISO. 000 

199.000 

140.000 

129.000 

no.  oeo 

IN.  000 

107.900 

107.000 

1  N  .800 

70 

PSU 

192.000 

170.000 

192.000 

140.000 

129.000 

120.000 

119.900 

119.000 

ns. 000 

SO 

PSU 

204.000 

192.000 

194.000 

192.000 

140.000 

132.000 

131 .900 

131 .000 

130. SOO 

SO 

PSU 

210.000 

194.000 

179.N0 

104.000 

192.000 

IN. 000 

143.900 

143.000 

142.000 

100 

PSU 

22S.000 

200.000 

199.000 

170.000 

IN.  000 

190.000 

199.900 

199.000 

194.800 

no 

PSU 

240.000 

219.000 

200.000 

1SS.OOO 

170.000 

IN.  000 

197.900 

147.000 

IN. SOO 

120 

PSU 

292.000 

230.000 

212.000 

200.000 

110. 000 

190.000 

179.900 

179.000 

178. SOO 

130 

PSU 

204.000 

242.000 

224.000 

212.000 

200.000 

192.000 

191 .900 

191.000 

190. SOO 

140 

PSU 

270.000 

294.000 

239.000 

224.000 

212.000 

2N.OOO 

203.900 

203.000 

202. SOO 

ISO 

PSU 

299.000 

200.000 

249.N0 

230 . 000 

224.000 

210.000 

219.900 

219.000 

214.900 

too 

PSU 

300.000 

279.000 

290.000 

240.000 

239.000 

229.000 

227.900 

227 . 000 

224.900 

170 

PSU 

312.000 

290.000 

272.000 

200.000 

249.000 

240.000 

239.900 

239.000 

23S.S00 

ISO 

PSU 

324.000 

302.000 

294.000 

272.000 

290.000 

292.000 

291 .900 

291.000 

290.900 

ISO 

PSU 

330.000 

314.000 

299.000 

2S4.000 

272.000 

2N.OOO 

243.900 

243.000 

242. SOO 

200 

PSU 

349.000 

320.000 

3M.000 

290 . 000 

294. 000 

270.000 

279.900 

279.000 

274.800 

210 

PSU 

300.000 

339.000 

320.000 

3N.OOO 

299. 090 

299. 000 

287.900 

287 . 000 

2S4.900 

220 

PSU 

372.000 

390.000 

332.000 

320.000 

399.000 

300.000 

299.900 

299 . 000 

290.900 

230 

PSU 

394.000 

302. OSS 

344.000 

332.000 

320.000 

312.000 

311.900 

311.000 

310. SOO 

240 

PSU 

390.000 

374.000 

399.000 

344.000 

332.000 

324.000 

323.900 

323.000 

322. SOO 

290 

PSU 

409.000 

390.000 

399.000 

390.000 

344. 000 

339.000 

339.900 

339.000 

334.900 

200 

PSU 

420.000 

399.000 

390.000 

300.000 

399.000 

349.000 

347.900 

347.000 

344.800 

270 

PSU 

432.000 

410.000 

392.000 

390. 000 

399.000 

300.000 

399.900 

399.000 

398. SOO 

2S0 

PSU 

444.000 

422.000 

404.NO 

392.000 

390.000 

372.000 

371.900 

371.000 

370. SOO 

290 

PSU 

490.000 

434.000 

419.000 

4M.000 

392.000 

394.000 

393.900 

3S3.0S0 

392.900 

300 

PSU 

4SS.000 

449.000 

429.000 

419.000 

4M.090 

399 . 000 

399.900 

399.000 

394.900 

C5*8 


TH4L*  OF  MAXIMUM  FERH1SSI4LE  TISSUE  TENSIONS 
<HVM.lt-  HELIUM  > 


TISSUE  HALF-TIHES 


DEPTH  S  H1N 

I. SO  SO* 


IS  OSH 

20  rw 
so  rw 

40  OSH 
SO  FSH 
«0  FSH 
70  ROM 
SO  FSH 
90  FSH 
100  FSH 

no  fsh 

120  FSH 
130  FSH 
140  FSH 
ISO  FSH 
ISO  FSH 
170  FSH 
ISO  FSH 
190  FSH 
200  FSH 
210  FSH 
220  FSH 
230  FSH 
240  FSH 
2S0  FSH 
2S0  FSH 
270  FSH 
2S0  FSH 
290  FSH 
300  FSH 


120.000 
132.000 
144.000 
ISO. 000 
1SS.OOO 
100.000 
192.000 
204.000 
21S.000 
220.000 
240.000 
2S2.000 
244.000 
274.000 
200.000 
300.000 
312.000 
324.000 
334.000 
340.000 
340.000 
372.000 
304.000 
394.000 
400.900 
420.000 
432.400 
444.000 
4S4.000 
440.000 


to  H1N 
.91  SO* 

90.000 
110.000 
122.000 
134.000 
144.000 
ISO. 000 
170.000 
102.400 
194.000 
204.000 
210.000 
230.000 
242.000 
2S4.000 
244.000 
270.000 
290.000 
302.000 
314.000 
324.000 
330.000 
330.000 
342.000 
374.000 
304.000 
390.000 
410.004 
422.000 
434.000 
444.000 


20  HIH 
.03  SO* 


32. 000 
94.000 
104.000 
110.000 
130.000 
142.000 
1S4.000 
144.000 
170.000 
190.000 
202.000 
214.000 
224.000 
230.000 
290.000 
242.000 
274.000 
204.000 
290.000 
310.000 
322.000 
334.000 
344.000 
390.000 
370.000 
302.000 
394.000 
400.000 
410.000 
430.000 


40  N1H 
.03  SO* 

40.000 

00.000 

92.000 

104.000 

114.000 

120.000 

140.000 

192.000 

144.000 

174.000 

100.000 

200.000 

212.000 

224.000 

234.000 

240.000 

240.000 

272. 550 
204.000 
294.000 
300.000 
320.000 
332.000 

344. 550 
394.000 
340.000 
300.000 
392. OSS 
404.000 
414.000 


00  HIH 
.S3  SO* 

94.000 
40.000 
SO. 000 
92.000 
1 04 . 000 
114.000 
120.000 
140.000 
192.000 
144.000 
174.000 
ISO. 000 
200.000 
212.000 
224.000 
234.000 
244.000 
240.000 
272.000 
294.000 
294.000 
304.000 
320.000 
332.000 
344.000 
394.000 
344.000 
390.000 
392.040 
404.000 


120  HIH 
.93  SM 

SO. 000 
42.000 
74.000 
44.000 
99.000 
110.000 
122.000 
134.000 
144.000 
194.000 
170.000 
142.000 
194.000 
204.000 
214.000 
230.000 
242.000 
294.000 
244.000 
274.000 
290.000 
302.000 
314.000 
324.000 
334.000 
390.000 
342.000 
374.000 
344.000 
394.000 


T48LI  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


<  HVAC1 2-  HELIUM  > 


TISSUE  HALF-TIMES 


DEATH 

9  MIN 

10  MIN 

20  MIN 

40  MIN 

00  NIK 

120  MIN 

.43  SO* 

.44  SOS 

.71  SOR 

.S3  SOR 

.S3  SOR 

.93  SDR 

10 

FEW 

120.000 

98. 000 

82.000 

48.000 

94.000 

80.000 

20 

FSU 

132.000 

110.000 

94.000 

00.000 

48.000 

42.000 

30 

FSW 

144.000 

122.000 

104.000 

92.000 

80.000 

74.000 

40 

FSW 

194.000 

134.000 

IIS. too 

104.000 

92.000 

84 . 000 

SO 

FSU 

148.000 

144.000 

130.000 

114.000 

104.000 

98.000 

to 

FSW 

ISO. 000 

190.000 

142.000 

129.000 

114.000 

110.000 

70 

FSW 

192.000 

170.000 

184.000 

140.000 

128.000 

122.000 

SO 

FSW 

204.000 

IS2.000 

144.000 

192.000 

140.000 

134.000 

90 

FSW 

214.000 

194.000 

179.000 

144.000 

182.000 

144.000 

too 

FSW 

22S.000 

204.000 

190.000 

174.000 

144.000 

188.009 

no 

FSW 

240.000 

210. 000 

202.000 

ISO. too 

174.000 

170.000 

120 

FSW 

292.000 

230.000 

214.000 

200.000 

ISO. too 

182.000 

130 

FSW 

244.000 

242.000 

224.000 

212.000 

200.000 

194.000 

140 

FSW 

274.000 

294.000 

239.000 

224.000 

212.000 

204.000 

190 

FSW 

2SS.000 

244.000 

280.000 

234.000 

224.000 

219.000 

ISO 

FSW 

300.000 

270.000 

242.000 

240.000 

234.000 

230.000 

170 

FSW 

312.000 

290.000 

274.000 

240.000 

248.000 

242.000 

ISO 

FSW 

324.000 

302. 000 

294.000 

272.000 

240.000 

294.000 

ISO 

FSW 

334.000 

314.000 

299.000 

284.000 

272.000 

244.000 

200 

FSW 

34S.000 

324.000 

310.000 

294.000 

284.000 

278.000 

210 

FSW 

340.000 

33S.OOO 

322.000 

308.000 

294.000 

290.000 

220 

FSW 

372.000 

390.000 

334.000 

320.000 

308.000 

302.000 

230 

FSW 

3S4. 000 

342.000 

344.000 

332.000 

320.000 

314.000 

240 

FSW 

394.000 

374.000 

399.000 

344.000 

332.000 

324.000 

290 

FSW 

40S.OOO 

3S4.000 

370.000 

394.000 

344.000 

33S.OOO 

240 

FSW 

420.000 

39S.000 

392.000 

348.000 

384.000 

380.000 

270 

FSW 

432.000 

410.000 

394.000 

380.000 

348.000 

342.000 

2S0 

FSW 

444.000 

422.000 

404.000 

392.000 

380,000 

374.000 

290 

FSW 

494.000 

434.000 

419.000 

404.000 

392.000 

3S4.000 

300 

FSW 

44S.000 

444.000 

430.000 

414.000 

404.000 

398.000 

C5-10 


T09LE  or  MAXIMUM  PESHISSI9LC  T100UE  TENSIONS 


DEPTH 


IS  ran 
2S  ran 
3S  FSW 

4$  rsw 
ss  rsw 
so  rsw 
7s  rsw 
so  rsw 
90  rsw 
100  rsw 
ns  rsw 
las  rsw 
iso  rsw 

140  FSW 

190  rsw 
iso  rsw 
iro  rsw 
iso  rsw 
iso  rsw 
20o  rsw 
2io  rsw 
220  rsw 
230  rsw 
240  rsw 
290  rsw 
2so  rsw 
270  rsw 
2so  rsw 
2*o  rsw 
300  rsw 


9  MIN 
1.00  ODE 

10  MIN 
.S3  000 

20  MIN 
.71  000 

120.000 

90.000 

02.000 

132.000 

110.000 

94.000 

144.000 

122.000 

104.000 

19S.00S 

134.000 

110.000 

ISO. 000 

144.000 

130.  NO 

190.000 

190.0*0 

142.000 

192.000 

170.000 

194.000 

204.000 

102.000 

144.000 

2IS.000 

1*4.000 

170.000 

22S.000 

204.000 

190.000 

240.000 

210.000 

202.000 

292.000 

230.000 

214.000 

2S4.000 

242.000 

.224.000 

27S.000 

294.000 

230.000 

2SS.O00 

244.000 

290.000 

300.000 

270.000 

242.000 

312.000 

290. 0S0 

274.000 

324.000 

342. OS* 

204.000 

334.0*0 

314.000 

2*0.000 

340.000 

324.000 

310.000 

3SS.OS0 

330.000 

322.000 

372.000 

390.000 

334.000 

304.000 

342.000 

344.000 

39S.0O0 

374.000 

390.000 

400. 000 

304.000 

370.000 

420.000 

390.000 

302.000 

432. 000 

410.000 

394.000 

444.000 

422.000 

404.000 

4SS.000 

434.000 

410.000 

4*0.000 

444.000 

430.000 

< MV ALII-  HELIUM  ) 


TISSUE  HALF-TIMES 


40  HIM 
.S3  SOS 

09  HIM 
.03  *00 

120  MIN 
.03  SOS 

40.000 

94.000 

90.000 

00.000 

40.000 

42.000 

*2.000 

00.000 

74.000 

104.000 

92.000 

04.000 

114.000 

104.000 

94.000 

120.000 

114.000 

110.000 

140.000 

120.000 

122.000 

192.000 

140.000 

134.000 

144.000 

192.000 

144.000 

174.000 

144.000 

190.000 

100.000 

174.000 

170.000 

200.000 

100.000 

1*2.000 

212.000 

200.000 

1*4.000 

.224.000 

2t2. 000 

204.000 

234.000 

224.000 

21S.000 

240.000 

234.000 

230.000 

2*0.000 

240.000 

242.000 

272.000 

240.000 

294.000 

204.000 

272.000 

244.000 

2*4.000 

204.000 

279.000 

300.000 

294.000 

290.000 

320.000 

300.000 

302.000 

332.000 

320.000 

314.000 

344.000 

332.000 

324.000 

394.000 

344.000 

33S.00O 

348.000 

394.000 

390.000 

304.000 

340.000 

342.000 

392.000 

300.000 

374.000 

404.000 

392.  0*0 

394.000 

414.000 

404.000 

399. 000 

CSl-U 


ANNEX  C-6 


TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 


<MVALt  -  NITROGEN  > 


TISSUE  HALF-TIMES 


DEPTH 

S  MIN 

10  MIN 

20  MIN 

40  MIN 

80  MIN 

120  MIN 

160  MIN 

200  MIN 

240  MIN 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1 . 00  SDR 

1.00  SDR 

1.00  SDR 

to 

PSU 

91.243 

78.731 

67.000 

33.790 

31 . 338 

49.333 

49.272 

48.490 

46.926 

20 

PSU 

110. 9SS 

96.416 

S2.613 

69.281 

63.967 

61 .771 

61 .437 

60.313 

38.627 

30 

PSU 

131.714 

114.663 

98.482 

82.814 

76.336 

73.968 

73.398 

72.486 

70.239 

40 

PSU 

132.483 

132.883 

114.273 

96.234 

89.023 

86.040 

83.613 

84.331 

81 .764 

SO 

PSU 

173. 132 

130.976 

129.928 

109.319 

101.338 

97.981 

97.497 

96.046 

93.138 

60 

PSU 

193.617 

168.913 

143.440 

122.673 

113.367 

109.798 

109.238 

107.639 

104.394 

TO 

PSU 

213.936 

186.698 

160.814 

133.704 

123.660 

121 .302 

120.906 

119.120 

113.340 

SO 

PSU 

234.094 

204.339 

176.060 

148.623 

1 37 . 647 

1 33 . 1 03 

132.432 

130.300 

126.387 

90 

PSU 

254. 102 

221 .843 

191.186 

161 .439 

149.337 

144.611 

143.903 

141 .788 

137.343 

too 

PSU 

273.969 

239.223 

206.203 

174.160 

161 .339 

136.032 

133.271 

132.991 

148.420 

1 1 0 

PSU 

293.703 

236.489 

221.118 

186.794 

173. 039 

167.373 

166.339 

164.116 

139.219 

120 

PSU 

313.313 

273.643 

233.937 

199.346 

184.703 

178.642 

177.773 

173.168 

169.948 

130 

PSU 

332.811 

290.698 

230.668 

211.822 

196.277 

189.841 

188.919 

186.134 

180.61 1 

140 

PSU 

332. 199 

307.636 

263.317 

224.228 

207.785 

200.977 

200.002 

197.077 

191 .214 

ISO 

PSU 

371 .483 

324.323 

279.887 

236 . 367 

219.231 

212.034 

21 1 . 023 

207.941 

201 .760 

160 

PSU 

390.673 

341 .310 

294.383 

248.844 

230.619 

223.074 

221 .993 

218.730 

212.232 

170 

PSU 

409.774 

338.014 

308.813 

261.062 

241 .932 

234.041 

232.907 

229.308 

222.693 

ISO 

PSU 

428.787 

374.643 

323.173 

273 . 224 

233 . 234 

244.937 

243 . 772 

240.213 

233.087 

190 

PSU 

447.719 

391 .201 

337.473 

283 . 334 

264 . 466 

233 . 827 

234.389 

230.876 

243.433 

200 

PSU 

466.372 

407.690 

331 .717 

297.393 

273.632 

266.631 

263.361 

261 .493 

233.741 

210 

PSU 

483.331 

424.114 

363.901 

309.404 

286 . 793 

277.432 

276.090 

272.068 

264.005 

220 

PSU 

304.039 

440.476 

380.032 

321 .369 

297.892 

288.171 

286.779 

282.602 

274.230 

230 

PSU 

322.700 

436.778 

394.112 

333.291 

308.930 

298.872 

297 . 428 

293.097 

284.417 

240 

PSU 

341.273 

473.023 

408.142 

343.171 

319.969 

309.335 

308.040 

303.336 

294.369 

230 

PSU 

339.787 

489.213 

422.124 

337.010 

330.930 

320.161 

318.613 

313.979 

304.686 

260 

PSU 

378.240 

303.331 

436.061 

368.811 

341 .896 

330.733 

329.136 

324 . 368 

314.770 

270 

PSU 

396.634 

321 .438 

449 . 934 

380.373 

332.807 

341.311 

339.664 

334 . 724 

324 . 822 

280 

PSU 

614.973 

337.473 

463.803 

392.303 

363.683 

331 .838 

330.140 

343.049 

334 . 84'. 

290 

PSU 

633.237 

333.466 

477.613 

403.996 

374.331 

362.332 

360.383 

333.343 

344.836 

300 

PSU 

631.490 

369.411 

491 .383 

413.633 

383.346 

372 . 798 

371.000 

363.607 

334.799 

TMLE  OF  HAXIHUH  FCRNISSIBLE  TISSUE  TENSIONS 


< HVAL2  -  NITROGEN  > 


TISSUE  HALF-TINES 


OEFTH 

3  NIN 

10  NIN 

20  NIN 

40  NIN 

80  NIN 

120  NIN 

160  NIN 

200  NIN 

240  NIN 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1.00  SDR 

1 . 00  SDR 

1 . 00  SDR 

to 

FSW 

86.031 

74.821 

64.393 

35.790 

30. 034 

48.229 

47.969 

47. 187 

43.623 

20 

FSW 

104.934 

91 .831 

79.326 

69.281 

62 . 399 

60.200 

59.886 

58.942 

37 . 032 

30 

FSV 

124.634 

109.292 

94,837 

82.814 

74.708 

72.115 

71 .743 

70.631 

68.400 

40 

FSW 

144.348 

126.709 

110.101 

96.234 

86.893 

83.903 

83.477 

82. 192 

79.619 

50 

FSW 

163.933 

143.993 

123.209 

109.519 

98 . 946 

95.361 

95 . 078 

93 . 624 

90.710 

00 

FSW 

183.363 

161.123 

140.177 

122.673 

110.873 

t  07 . 098 

1 06 . 339 

104.936 

101 .683 

70 

FSW 

202.630 

178.111 

133.010 

135.704 

122.690 

118.323 

117.928 

116.138 

112.349 

SO 

FSW 

221 .744 

194.938 

169.718 

148.623 

134.402 

129.848 

129.198 

127.241 

123.319 

90 

FSW 

240.713 

211.673 

184.311 

161 .439 

146. 019 

141 . 080 

140.376 

138.234 

134.000 

too 

FSW 

239.348 

228.271 

198.797 

174.160 

137.549 

132.229 

131.469 

149. 184 

144.601 

no 

FSW 

278.238 

244.736 

213.184 

186.794 

168.998 

163.299 

162.486 

160.037 

133.128 

t20 

FSW 

296.830 

261.137 

227.480 

199.346 

180.374 

174.298 

173.431 

170.820 

163.386 

130 

FSW 

313.332 

277.420 

241 .690 

211.822 

191 .681 

185.230 

184.309 

181 .537 

175.981 

140 

FSW 

333.712 

293.612 

233.820 

224.228 

202.923 

196.100 

195.126 

192.194 

186.316 

ISO 

FSW 

331 .993 

309.719 

269.873 

236.367 

214.103 

206. 911 

203.884 

202.793 

196.596 

160 

FSW 

370.186 

323.744 

283.839 

248.844 

223.230 

217.667 

216.388 

213.338 

206.823 

170 

FSW 

388.292 

341 .694 

297.777 

261 . 062 

236.302 

228 . 372 

227.240 

223.832 

217.001 

ISO 

FSW 

406.316 

337.371 

311.631 

273.224 

247.323 

239 . 027 

237.843 

234.278 

227.132 

190 

FSW 

424.262 

373.380 

323.423 

283.334 

238.296 

249.636 

248.400 

244.679 

237.219 

200 

FSW 

442.134 

389.124 

339.162 

297.393 

269 . 223 

260.201 

238.913 

233.036 

247.264 

210 

FSW 

439.933 

404.803 

332.844 

309.404 

280.107 

270.724 

269.304 

263.332 

237.269 

220 

FSW 

477.670 

420.427 

366.473 

321 .369 

290.930 

28t .206 

279.816 

273.629 

267.236 

230 

FSW 

493.340 

433.991 

380.033 

333.291 

301.732 

291 .631 

290.209 

283.868 

277.166 

240 

FSW 

312.948 

431 .302 

393.389 

343.171 

312.317 

302.038 

300.363 

296.070 

287.061 

230 

FSW 

330.496 

466.960 

407.076 

337.010 

323.245 

312.430 

310.886 

306.239 

296.923 

260 

FSW 

347.988 

482.367 

420.319 

368.811 

333.938 

322.768 

321.174 

316.374 

306.732 

270 

FSW 

363.423 

497.727 

433.920 

380.373 

344.397 

333.074 

331 .429 

326.477 

316.330 

280 

FSW 

382.808 

313.039 

447.280 

392.303 

333.224 

343.348 

341 .633 

336.349 

326.318 

290 

FSW 

600.141 

328.307 

460.601 

403.996 

363.819 

333.391 

331 .846 

346.391 

336.038 

300 

FSW 

617.424 

343.331 

473.884 

413.633 

376.384 

363.806 

362.010 

336.603 

343.769 

TA8LE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TE^IONS 


<HVAL3  -  NITROGEN  > 


TISSUE  HALF-TIMES 


OCFTH 

9  MIN 

10  MIN 

20  MIN 

40 

MIN 

80 

MIN 

120  MIN 

100  MIN 

200  MIN 

240  MIN 

1 . 00  SDR 

1.00  SOR 

1.00  SDR 

1.00 

SDR 

1.00 

SOR 

1 . 00  SDR 

1 .00  SDR 

1 . 00  SDR 

1.00  SDR 

IS 

FSW 

SO. SI? 

70.910 

01.780 

S3 

.183 

48. 

791 

40.920 

40 . 009 

49 . 883 

44.319 

28 

FSW 

9S.S99 

87.230 

70.431 

00 

.198 

00. 

829 

98.027 

98.312 

97 . 300 

99.473 

30 

FSW 

117.920 

103.898 

91 .221 

79 

.  137 

72. 

897 

70.299 

09 . 88? 

08.772 

00.930 

48 

FSW 

130. 170 

129.909 

109.910 

91 

.998 

84. 

799 

81.704 

8t  .334 

80.047 

77.408 

90 

FSW 

194. OS9 

130.970 

120.474 

104 

.729 

90. 

930 

93.138 

92.092 

91 . 199 

88.274 

SO 

FSW 

173.093 

193.300 

134.899 

117 

.324 

108. 

179 

1 04 . 394 

103.891 

102.224 

98 . 904 

70 

FSW 

191 .203 

109.482 

149. 189 

129 

.80S 

119. 

710 

119.940 

114.941 

113.147 

109.949 

SO 

FSW 

209.320 

189.930 

103.393 

142 

.170 

131  . 

192 

120.987 

129.933 

123.972 

120. 040 

SO 

FSW 

227.292 

201 .494 

177.410 

194 

.449 

142. 

499 

1 37 . 949 

130.830 

134.708 

130.449 

too 

FSW 

249 . 049 

217.203 

191 .304 

100 

.030 

193. 

792 

148.420 

147.090 

149.304 

140.771 

no 

FSW 

202.727 

232.904 

209.222 

178 

.727 

104. 

931 

199.219 

198.400 

199.949 

191 . 024 

120 

FSW 

2S0.294 

248.907 

218.992 

190 

.740 

170. 

038 

109.948 

109.079 

100.498 

101 .21 1 

130 

FSW 

297 . 790 

204.070 

232.079 

202 

.092 

187. 

077 

180.011 

179.089 

170.900 

171 .330 

140 

FSW 

319. 123 

279.498 

240.289 

214 

.970 

198. 

094 

191 .214 

190.234 

187.299 

181 .402 

190 

FSW 

332.397 

294.838 

299.827 

220 

.389 

208. 

971 

201 .700 

200.720 

197.027 

191 .419 

ISO 

FSW 

349. 9S9 

310.102 

273. 2S0 

238 

.140 

219. 

833 

212.292 

21 1 . ISO 

207.907 

201 .370 

170 

FSW 

300.091 

329.292 

280.701 

249 

.838 

230. 

043 

222.093 

221 .994 

218.138 

211.289 

ISO 

FSW 

3S3.720 

340.414 

300.044 

201 

.483 

241  . 

403 

233.087 

231 .899 

228.322 

221.197 

190 

FSW 

400.079 

399.470 

313.330 

273 

.078 

292. 

1 10 

243.439 

242.191 

238.401 

230.982 

200 

FSW 

417.901 

370.404 

320.901 

284 

.024 

202. 

70S 

293.741 

292.449 

248.998 

240.700 

210 

FSW 

434.380 

389.399 

339.739 

290 

.124 

273. 

41 1 

204. 009 

202.09? 

298.014 

290.911 

220 

FSW 

491.139 

400.277 

392.807 

307 

.981 

283. 

997 

274.230 

272.830 

208.033 

200.218 

230 

FSW 

407. S29 

419.101 

309.948 

318 

.999 

294. 

943 

284.417 

282.900 

278.014 

209 . 890 

240 

FSW 

404. 404 

429.873 

378.982 

338 

.309 

309. 

093 

294.309 

293.007 

288.901 

279.928 

290 

FSW 

901 .044 

444.999 

391 .972 

341 

.789 

319. 

927 

304.080 

303.133 

298.473 

289.133 

200 

FSW 

917.970 

499.209 

404.920 

393 

.094 

329. 

907 

314.770 

313.100 

308.393 

298.707 

270 

FSW 

934.043 

473.897 

417.827 

304 

.207 

330. 

374 

324.822 

323.107 

318.202 

308.290 

2S0 

FSW 

990.407 

488.481 

430.099 

379 

.499 

340. 

749 

334.844 

333.138 

328.021 

317.704 

290 

FSW 

900.842 

903.021 

443.929 

380 

.091 

397. 

093 

344.830 

343.079 

337.811 

327.290 

300 

FSW 

9S3.171 

917.920 

490.318 

397 

.894 

307. 

488 

394.799 

392.992 

347.973 

330.709 

Cfr-3 


TABLE  OF  MAXIMUM  PERMISSIBLE  TISSUE  TENSIONS 
<HVAL3  -  NITROGEN  > 


TISSUE  HALF-TIMES 


DEPTH 

3  MIN 

10  MIN 

20  MIN 

40 

MIN 

00  MIN 

120  MIN 

100  MIN 

200  MIN 

240  MIN 

1  .  SO  SDR 

1 .00  SOR 

1.00  SOR 

1  .00 

SOR 

1  .00  SOR 

1 . 00  SOR 

1 . 00  SOR 

1  . 00  SDR 

1 . 00  SDR 

It 

FSU 

30.000 

30.000 

30.000 

SO. 

000 

30.000 

30.000 

30.000 

50.000 

30.000 

20 

FSU 

02.403 

02.403 

02 . 403 

02. 

403 

02 . 403 

02.403 

02.403 

02.403 

02.403 

30 

FSU 

74 . 90S 

74.900 

74.900 

74. 

908 

74.908 

74 . 900 

74.908 

74 . 988 

74.988 

40 

FSU 

•7 . 343 

07 . 343 

07 . 343 

07. 

343 

87.343 

07.343 

87.343 

87.543 

87.343 

30 

FSU 

100. 103 

100.103 

100.103 

100. 

103 

100.1  OS 

100.103 

100. 103 

100.103 

100.103 

00 

FSU 

112.033 

112.033 

112.033 

112. 

033 

112.033 

112.053 

112.033 

112.033 

112.035 

70 

FSU 

123. ISO 

123. ISO 

123.100 

123. 

180 

t2S. 180 

123.100 

123.180 

123.180 

123. 180 

SO 

FSU 

137.009 

137.009 

137.009 

137. 

009 

137.009 

1 37 . 009 

137.009 

1 37 . 009 

137.009 

90 

FSU 

130. 117 

130.117 

130.117 

ISO. 

117 

130. 117 

130.117 

130. 117 

150.117 

130.117 

100 

FSU 

1 30 . 993 

130.093 

130.093 

130. 

893 

130.893 

130.893 

130.893 

130.893 

130.893 

no 

FSU 

107.243 

107.243 

107.243 

107. 

243 

107.243 

107.243 

107.243 

107.243 

107.243 

120 

FSU 

177.343 

177.393 

177.343 

177. 

393 

177.393 

177.393 

177.393 

177.393 

177.393 

130 

FSU 

1 07 . 943 

107.943 

107.943 

107. 

943 

107.943 

1 07 . 943 

107.943 

187.943 

1 87 . 943 

140 

FSU 

199.293 

190.293 

190.293 

190. 

293 

190.293 

198.293 

198.293 

198.293 

198.293 

130 

FSU 

200.043 

200.043 

200.043 

208. 

043 

208.043 

208.043 

208.043 

208.043 

208.043 

ISO 

FSU 

210.993 

210.993 

210.993 

210. 

993 

210.993 

218.993 

218.993 

218.993 

218.993 

170 

FSU 

229.343 

229.343 

229.343 

229. 

343 

229 . 343 

229 . 343 

229 . 343 

229 . 343 

229.343 

ISO 

FSU 

239.093 

239.093 

239.093 

239. 

093 

239.093 

239 . 093 

239 . 093 

239 . 093 

239 . 093 

140 

FSU 

230.043 

230.043 

230.043 

230. 

043 

230.043 

230.043 

230.043 

230.043 

230 . 043 

200 

FSU 

200.393 

200.393 

200.393 

200. 

393 

200.393 

200.393 

200.393 

200.393 

200.393 

21  0 

FSU 

270.743 

270.743 

270.743 

270. 

743 

270.743 

270.743 

270.743 

270.743 

270.743 

220 

FSU 

201.093 

201 . 093 

201.093 

281  . 

093 

281.093 

281 . 093 

281.093 

281 . 093 

281.093 

2J0 

FSU 

291 .443 

241 .443 

291 .443 

291  . 

443 

291 .443 

291 .443 

291.443 

291 .443 

291 .443 

240 

FSU 

301.793 

301.793 

301 .793 

301  . 

793 

301 .793 

301.793 

301 .793 

301 .793 

301 .793 

230 

FSU 

312.143 

312.143 

312.143 

312. 

143 

312. 143 

312.143 

312.143 

312.143 

312.143 

200 

FSU 

322 . 493 

322.493 

322 . 493 

322. 

493 

322.493 

322.493 

322 . 493 

322 . 493 

322 . 493 

270 

FSU 

332.043 

332.043 

332.043 

332. 

043 

332.043 

332 . 843 

332.843 

332.843 

332.845 

2S0 

FSU 

343. 143 

343. 193 

343. 193 

343. 

193 

343.193 

343.193 

343. 193 

343.193 

343. 193 

290 

FSU 

333.343 

333.343 

333.343 

333. 

343 

333 . 343 

333.343 

333.343 

333 . 343 

333.343 

300 

FSU 

303.093 

303.093 

303.093 

303. 

093 

303.893 

303.893 

303 . 893 

303 . 893 

303.893 

4 


TA8LE  OF  NAXIHUN  FERNISSIBCE  TISSUE  TENSIONS 
<  NVAL83-  NITROGEN  > 


TISSUE  N ACE-TINES 


DEATH 

9  NIN 

10  NIN 

20  NIN 

40 

NIN 

80  NIN 

120  NIN 

160  NIN 

200  NIN 

240  NIN 

1.00  S OR 

1.00  sot 

1.00  SOB 

1.00 

SDR 

1.00  SDR 

t . 00  SDR 

1 . 00  SDR 

1 . 00  SDR 

1 . 00  SDR 

to 

FSW 

103.000 

89.000 

71.000 

37 

.000 

46.740 

46.740 

46.740 

46.740 

46.740 

20 

FSW 

104.933 

89.850 

73.000 

61 

.480 

61 .480 

61  .480 

61  .480 

61 .480 

61 .480 

30 

FSW 

106.860 

86.700 

74.988 

74 

.988 

74 . 988 

74 . 988 

74 . 988 

74 . 988 

74 . 988 

40 

FSM 

108.790 

87 . 943 

87 . 943 

87 

.543 

87.543 

87 . 543 

87 . 543 

87.543 

87.343 

90 

FSW 

110.720 

100. 105 

100.105 

100 

.105 

100. 105 

100.105 

100.103 

100.105 

1  00.-1  03 

SO 

FSW 

112.699 

112.659 

112.655 

112 

.655 

112.655 

112.635 

112.635 

112.699 

112.693 

70 

FSW 

129.180 

129.180 

129.180 

129 

.180 

129.180 

129.180 

129. 180 

125. 180 

129. 180 

00 

FSW 

137.669 

137.669 

137.669 

137 

.669 

137.669 

1 37 . 669 

137.669 

137.669 

137.669 

90 

FSW 

ISO. 117 

190.117 

190.117 

150 

.117 

150. 117 

150.117 

130.117 

150. 117 

150. 117 

too 

FSW 

196.899 

196.895 

196.895 

156 

.895 

136.899 

196.895 

t 96. 893 

156.899 

136.895 

110 

FSW 

167.249 

167.249 

167.245 

167 

.249 

167.245 

167.249 

t 67. 245 

167.249 

167.243 

120 

FSW 

177.999 

177.995 

177.999 

177 

.595 

177.599 

177.395 

177.393 

177.393 

177.395 

130 

FSW 

187.949 

187.949 

187.949 

187 

.949 

187.943 

1 87 . 945 

187.943 

187.945 

187.945 

140 

FSW 

198.299 

198.299 

198.299 

198 

.295 

198.295 

198.299 

198.293 

198.295 

198.293 

ISO 

FSW 

208.649 

208.649 

288.649 

208 

:  445 

208.645 

208.643 

208.645 

208.643 

208 . 645 

ISO 

FSW 

218.999 

218.999 

218.995 

2IF 

999 

218.993 

218.995 

218.995 

218.995 

218.995 

170 

FSW 

229.349 

229 . 349 

229.345 

229 

.345 

229.345 

229.343 

229.345 

229 . 343 

229.345 

ISO 

FSW 

239.699 

239.699 

239.695 

239 

.699 

239.695 

239 . 695 

239.699 

239.695 

239.695 

190 

FSW 

290.049 

290.049 

290.049 

250 

.049 

250.045 

250.049 

290. 043 

23  0. 043 

250 . 045 

200 

FSW 

260.399 

260.399 

260.395 

260 

.395 

260.393 

260.395 

260.395 

260.395 

260.393 

210 

FSW 

270.749 

270.749 

270.749 

270 

.749 

270.743 

270.745 

270.743 

270.743 

270.745 

220 

FSW 

28t . 099 

281.099 

281 .095 

281 

.095 

281 . 095 

281 . 099 

281 . 093 

281 .095 

281.095 

230 

FSW 

291 .449 

291 .449 

291 .445 

291 

.445 

291.445 

291 .445 

291 .449 

291 .445 

291 .445 

240 

FSW 

301 . 799 

301.799 

301 . 799 

301 

.795 

301 .795 

301 .795 

301 .793 

301 .795 

301 .793 

290 

FSW 

312. 149 

312. 149 

312.143 

312 

.145 

312.145 

312.149 

312.143 

312.145 

312.143 

260 

FSW 

322.499 

322.499 

322.495 

322 

.495 

322.493 

322.499 

322.493 

322.499 

322.495 

270 

FSW 

332 . 849 

332.849 

332 . 845 

332 

.849 

332.849 

332.843 

332.849 

332 . 345 

332.849 

280 

FSW 

343. 199 

343. 195 

343.195 

343 

.195 

343.199 

343. 199 

343.195 

343.195 

343.195 

290 

FSW 

393 . 949 

393.549 

353.549 

393 

.945 

353.545 

353.945 

353.549 

353.345 

353.345 

300 

FSW 

363.899 

363.895 

363.895 

363 

.899 

363.899 

363.899 

363.899 

363 . 899 

363.895 

CX-2 


TA8LE  OF  HAKXIWH  FERHISSI9LE  TISSUE  TENSIONS 


< NVAL92-  NITROGEN  > 


TISSUE  HALF-TIMES 


DEPTH 

S  HIM 

10  HIH 

20  NIN 

40  NIN 

80 

NIN 

120  NIN 

1*0  NIN 

200  NIN 

240  NIN 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1.00  SDR 

1.00 

SDR 

1 . 00  SDR 

1.00  SOR 

I. 00  SDR 

1.00  SOR 

10 

FSW 

103.000 

S3. 000 

71.000 

3*. 000 

4*. 

740 

43.000 

40.300 

40.500 

40.300 

20 

FSW 

104.933 

ss.sso 

73.000 

*1 .480 

35. 

000 

31.000 

31.000 

31.000 

51.000 

30 

FSW 

10*. 9*0 

8*. 700 

74.988 

74.988 

74. 

998 

74 . 998 

74 . 988 

74 . 988 

74 . 998 

40 

FSW 

1 0S. 790 

87.543 

87. 543 

87.343 

87. 

343 

87 . 343 

97 . 343 

87.543 

97.343 

SO 

FSW 

110.720 

100.105 

100. 103 

100. 103 

100. 

103 

100.103 

100. 103 

100.105 

100.105 

*0 

FSW 

112. *33 

112. *53 

112.453 

1 1 2 . *53 

112. 

433 

112. *33 

112.635 

112.653 

112. *55 

70 

FSW 

123. ISO 

123. ISO 

123. ISO 

125. 180 

123. 

190 

123.180 

123. 180 

123.190 

125.190 

SO 

FSW 

137**9 

137. **9 

137.4*9 

137.4*9 

137. 

4*9 

1 37 .**9 

137.669 

137.6*9 

137.6*9 

90 

FSW 

130. 117 

150. 117 

150.117 

130. 117 

ISO. 

117 

130.117 

150.117 

130.117 

130.117 

100 

FSW 

13*. 993 

IS*. 893 

154.995 

IS*. 995 

IS*. 

993 

134.993 

156.893 

136.893 

136.893 

110 

FSW 

1*7.243 

1*7.243 

1*7.243 

1*7.243 

1*7. 

243 

1*7.245 

1*7.243 

167.245 

167.245 

120 

FSW 

177.393 

177.393 

177.593 

1 77 . 593 

177. 

393 

177.393 

177.395 

177.393 

177.393 

130 

FSW 

1S7.943 

187.945 

187.945 

197.943 

187. 

943 

197.945 

187.945 

197.945 

197.943 

140 

FSW 

19S.293 

198.293 

198.293 

198.295 

199. 

293 

198.295 

198.293 

198.295 

198.295 

ISO 

FSW 

208. *45 

208. *45 

208.445 

208.445 

208. 

643 

208.643 

208.645 

208.643 

208.443 

ISO 

FSW 

218.995 

2IS.995 

21 S. 995 

218.995 

218. 

993 

219.993 

219.995 

218.993 

219.993 

170 

FSW 

229.345 

229.345 

229.343 

229 . 343 

229. 

345 

229 . 345 

229.345 

229 . 343 

229 . 343 

ISO 

FSW 

239. *95 

239.493 

239 . *95 

239 . *95 

239. 

*95 

239..  *93 

239.695 

239.693 

239. 693 

190 

FSW 

250.045 

250.045 

250.045 

230.045 

250. 

045 

250.043 

230.045 

230.043 

230.045 

200 

FSW 

2*0.395 

2*0.393 

2*0.393 

2*0.395 

2*0. 

395 

260.393 

260.393 

260.395 

260.393 

210 

FSW 

270.745 

270.745 

270.745 

270.745 

270. 

743 

270.743 

270.745 

270.743 

270.743 

220 

FSW 

2SI .095 

281 .095 

281.095 

291.095 

281. 

093 

281 . 095 

291.095 

291 .093 

281 . 095 

230 

FSW 

291 .445 

291 .445 

291.443 

291 .445 

291  . 

443 

291 .445 

291 .445 

291 .445 

291 .445 

240 

FSW 

301 . 795 

301 . 795 

301 .793 

301.795 

301  . 

793 

301.795 

301 .793 

301 .793 

301 . 795 

2S0 

FSW 

312.145 

312.143 

312.143 

312.145 

312. 

143 

312.143 

312.145 

312.145 

312.145 

2*0 

FSW 

322.495 

322.493 

322.493 

322.493 

322. 

493 

322.495 

322.493 

322.495 

322.493 

270 

FSW 

332.944 

332. S4S 

332.843 

332.945 

332. 

945 

332.843 

332.945 

332.945 

332.943 

2S0 

FSW 

343.193 

343.195 

343.193 

343.195 

343. 

193 

343.195 

343.195 

343.195 

343.195 

290 

FSW 

353.545 

353.545 

353.545 

353.545 

353. 

345 

333.345 

333.543 

353.345 

353.545 

300 

FSW 

3*3.895 

3*3.893 

3*3.893 

3*3.895 

3*3. 

895 

3*3.993 

3*3.995 

3*3.995 

3*3.993 

r 


TASLE  OF  IWXimm  FCRHISSI8LE  TISSUE  TENSIONS 
<HVAL97-  NITROGEN  > 


TISSUE  HALF-TIMES 


DEATH 

9  NIN 

to 

NIN 

20  MIN 

40  MIN 

80  MIN 

120  NIK 

140  NIN 

200  MIN 

240  MIN 

1.00  SDR 

1.00 

SDR 

1.00  SOR 

1.00  SDR 

1.00  SOR 

1.00  SOR 

1.00  SDR 

1.00  SOR 

1 . 00  SOR 

10 

FSW 

103.000 

89. 

000 

71.008 

94.000 

44.000 

44.000 

44.000 

45.800 

49.000 

20 

FSU 

104.933 

89. 

890 

73.000 

42.900 

41.500 

57.000 

55.000 

92.900 

51.000 

30 

FSW 

1 04.040 

94 . 

700 

74.988 

74.988 

74.988 

74 . 998 

74.988 

74 . 988 

74 . 988 

40 

FSW 

108.790 

87 . 

943 

87.943 

87 . 543 

87.943 

87.943 

87 . 343 

87 . 943 

87.543 

90 

FSW 

110.720 

ISO. 

109 

100.109 

100. 109 

100.109 

100.109 

100.105 

100.105 

1 00 . 1 05 

00 

FSW 

112.493 

112. 

899 

112.499 

112.455 

112.455 

112.433 

112.455 

112.439 

112. 435 

70 

FSW 

129.100 

129. 

ISO 

129.190 

123.180 

125.180 

125. 180 

125.180 

125. 180 

123. 180 

SO 

FSW 

137.449 

137. 

449 

137.449 

137.449 

1 37 . 449 

1 37 . 449 

137.449 

1 37 . 449 

137.449 

90 

FSW 

ISO. 117 

190. 

117 

190.117 

150.117 

130. 117 

130.117 

190.117 

150.117 

150. 117 

too 

FSW 

194. 499 

194. 

893 

134.895 

194.895 

154.895 

1 54.893 

154.895 

154.895 

1 54 . 895 

no 

FSW 

147.249 

147. 

249 

147.249 

147.245 

147.243 

147.243 

147.243 

147.243 

147.249 

120 

FSW 

177.993 

177, 

999 

177.393 

1 77 . 595 

1 77 , 393 

1 77 . 395 

177.593 

177.595 

177.393 

130 

FSW 

187.943 

187. 

.949 

187.945 

187.945 

187.943 

187.945 

187.943 

187.949 

187.949 

140 

FSW 

198.293 

198, 

.293 

198.299 

198.293 

198.293 

198.293 

198.299 

198.295 

198.295 

190 

FSW 

208.443 

208. 

.449 

208.449 

208.445 

208.443 

208.445 

208.449 

208.449 

208.445 

ISO 

FSW 

218.999 

218. 

999 

218.993 

218.995 

218.993 

218.995 

218.993 

218.995 

218.995 

170 

FSW 

229.343 

229 

.349 

229.349 

229 . 345 

229 . 345 

229 . 343 

229.349 

229 . 345 

229 . 345 

ISO 

FSW 

239.493 

239 

.493 

239.493 

239 . 495 

239.493 

239.495 

239 . 493 

239.493 

239.495 

190 

FSW 

290.043 

290, 

.049 

290.049 

250. 043 

290.045 

250. 043 

230.043 

230. 043 

230 . 049 

200 

FSW 

240.399 

240 

.393 

240.393 

240.393 

240.393 

240.393 

240.393 

240.393 

240.393 

210 

FSW 

270.749 

270 

.749 

270 . 743 

270.745 

270 . 745 

270.743 

270.743 

270.743 

270.745 

220 

FSW 

281 . 099 

281 

.099 

281.093 

281 . 099 

291 . 099 

281 . 095 

281 .099 

281 . 095 

281 . 095 

230 

FSW 

291 .449 

291 

.443 

291 .443 

291 .449 

291 .449 

291 .445 

291 .443 

291 .443 

291 .445 

240 

FSW 

301 . 799 

301 

.793 

301.793 

301.795 

301 . 793 

301.795 

301.795 

301 .795 

301 .793 

290 

FSW 

312. 143 

312 

.149 

312.143 

312.149 

312. 145 

312. 145 

312.143 

312.149 

312.145 

2*0 

FSW 

322.493 

322 

.493 

322.493 

322.499 

322.493 

322 . 493 

322.495 

322 . 495 

322 . 493 

2  70 

FSW 

332.843 

332 

.843 

332.843 

332.849 

332.849 

332.849 

332843 

332 . 843 

332 . 843 

2S0 

FSW 

343.193 

343 

.199 

343.193 

343.199 

343. 193 

343.193 

343.193 

343. 195 

343. 193 

290 

FSW 

333.943 

383 

.943 

393.343 

353.345 

353.545 

353.545 

353. 545 

353.549 

353.545 

300 

FSW 

343.899 

343 

.893 

343.893 

343.895 

M3. 895 

343.893 

343.899 

343.895 

M3. 893 

I 


TMLf  OF  IMXIHUH  PERMISSIBLE  TISSUE  TENSIONS 


<WRL09-  NITROGEN  > 


TISSUE  NRLF-TIHES 


DEPTH 

S  HIM 

10  HIN 

20  NIN 

40  HIN 

•  0  HIN 

120  HIN 

140  HtN 

200  HIM 

240  HIN 

1.00  SM 

1.00  SOR 

1.00  SOR 

1.00  SOR 

1 . 00  OOR 

1 . 00  SOR 

1.00  SOR 

1.00  SDR 

1.00  SDR 

IS 

FSW 

103.000 

•7.000 

72.000 

34.000 

43.300 

43.000 

44.300 

44.000 

43.300 

20 

FSW 

113.000 

97.000 

•2.000 

44.000 

33.300 

33.000 

34.300 

34.000 

33.300 

30 

FSW 

123.000 

107.000 

92.000 

74.000 

43.300 

43.000 

44.500 

44.000 

43.300 

40 

FSW 

133.000 

117.000 

102.000 

04.000 

73.300 

73.000 

74.300 

74.000 

73.300 

SO 

FSW 

143.000 

127.000 

112.000 

94.000 

•3.300 

S3 . 000 

•4.300 

84.000 

83.300 

00 

FSW 

1S3.000 

137.000 

122.000 

104.000 

93.300 

93.000 

94.300 

94.000 

93.300 

70 

FSW 

103.000 

147.000 

132.000 

114.000 

103.300 

103.000 

104.300 

104.000 

103.300 

00 

FSW 

173.000 

1S7.000 

142.000 

124.000 

113.300 

113.000 

114.300 

114.000 

113.300 

90 

FSW 

103.000 

107.000 

1S2.000 

134.000 

123.300 

123.000 

124.300 

124.000 

123.300 

100 

FSW 

193.000 

177.000 

142.000 

144.000 

133.300 

133.000 

134.300 

134.000 

133.300 

no 

FSW 

203.000 

107 . 000 

172.000 

134.000 

143.300 

143.000 

144.300 

144.000 

143.300 

120 

FSW 

213.000 

197.000 

102.000 

144.000 

133.300 

133.000 

134.300 

134.000 

133.300 

130 

FSW 

223 . 000 

207.000 

192.000 

174.000 

143.300 

143.000 

144.300 

144.000 

143.300 

140 

FSW 

233.000 

217.000 

202.000 

104.000 

173.300 

173.000 

174.300 

174.000 

173.300 

ISO 

FSW 

243.000 

227.000 

212.000 

194.000 

108.300 

103.000 

184.300 

1S4.000 

183.300 

100 

FSW 

2S3.000 

237.000 

222.000 

204.000 

193.300 

193.000 

194.300 

194.000 

193.300 

170 

FSW 

203.000 

247.000 

232.000 

214.000 

205.300 

203.000 

204.300 

204.000 

203.300 

100 

FSW 

273.000 

237.000 

242.000 

224.000 

213.300 

213.000 

214.300 

214.000 

213.300 

190 

FSW 

203.000 

247.000 

292.000 

234.000 

223.300 

223.000 

224.300 

224.000 

223.300 

200 

FSW 

293.000 

277.000 

242.000 

244 . 000 

233.300 

233.000 

234.300 

234.000 

233.300 

210 

FSW 

303.000 

207.000 

272.000 

234.000 

243.300 

243.000 

244.300 

244.000 

243.300 

220 

FSW 

313.000 

297.000 

202.000 

244.000 

235.300 

233 . 000 

234.300 

234.000 

233.300 

230 

F3W 

323 . 000 

307.000 

292.000 

274.000 

243.300 

243.000 

244.300 

244.000 

243.300 

240 

FSW 

333.000 

317.000 

302.000 

204.000 

273.300 

273.000 

274.300 

274 . 000 

273.300 

230 

FSW 

343.000 

327.000 

312.000 

294.000 

293.300 

283.000 

284.300 

284 . 000 

283.300 

200 

FSW 

3S3.000 

337.000 

322.000 

304.000 

299.300 

293.000 

294.300 

294.000 

293.300 

270 

FSW 

303.000 

347.000 

332.000 

314.000 

303.300 

303.000 

304.300 

304.000 

303.300 

200 

FSW 

373.000 

3S7.000 

342.000 

324.000 

313.300 

313.000 

314.300 

314.000 

313.300 

290 

FSW 

3S3.000 

347.000 

332.000 

334.000 

323.300 

323.000 

324.300 

324.000 

323.300 

300 

FSW 

393.000 

377.000 

342.000 

344.000 

335.300 

335.000 

334.300 

334 . 000 

333.300 

C7.-5 


TR81E  or  H8KXHUH  PCRHISSXBLE  TISSUE  TENSIONS 
(WM.I4-  NITROGEN  > 


TISSUE  NALF-TXHES 


DEPTH 

9  NIN 
1.00  SDR 

10  HXN 
1.00  SDR 

20  NXN 
1.00  SDR 

40  HXN 
1.00  SDR 

80  HXN 
1.00  SDR 

120  HXN 

1 . 00  SDR 

1*0  HXN 
1.00  SDR 

200  NXN 
1.00  SDR 

240  HIN 
1.00  SDR 

to 

FSU 

120.000 

9S.000 

78.000 

98.000 

48.900 

49.900 

44.900 

44.000 

43.900 

20 

FSU 

130.000 

1 0S. 000 

88.000 

*8.000 

98.900 

99.900 

94.900 

94.000 

93.900 

30 

FSU 

140.000 

IIS. 000 

98.000 

78.000 

*8.900 

*9.900 

*4.900 

*4.000 

*3.900 

40 

FSU 

190.000 

12S.000 

108.000 

88.000 

7S.900 

79.900 

74.900 

74.000 

73.900 

SO 

FSU 

1*0.000 

138.000 

119.000 

98. 000 

SS .900 

89.900 

84.900 

84.000 

83.900 

*0 

FSU 

170.000 

148. 000 

128.000 

108. 000 

98.900 

99.900 

94.900 

94.000 

93.900 

70 

FSU 

180.000 

198.000 

130.000 

118.000 

109.900 

1 09 . 900 

104.900 

104.000 

1*3.900 

SO 

FSU 

190.000 

1*8.000 

149.000 

128.000 

119.900 

119.900 

114.900 

114.000 

113.900 

90 

FSU 

200.000 

178.000 

198.000 

138.000 

128.900 

129.900 

124.900 

124.000 

123.900 

too 

FSU 

210.000 

188.000 

1*9.000 

148.000 

138.900 

139.900 

134.900 

134.000 

133.900 

no 

FSU 

220.000 

198.000 

178.000 

199.000 

149.900 

149.900 

144.900 

144.000 

143.900 

120 

FSU 

230.000 

208.000 

199.000 

1*8.000 

19S.900 

199.900 

194.900 

194.00* 

193.900 

130 

FSU 

240.000 

218.000 

199.000 

178.000 

1*8.900 

t*9 . 900 

1*4.900 

1*4.000 

1*3.900 

140 

FSU 

290.000 

228.000 

208.000 

198.000 

17S.900 

179.900 

174.900 

174.000 

173.900 

ISO 

FSU 

2*0.000 

238.000 

218.000 

198.000 

188.900 

199.900 

184.900 

194.000 

193.900 

1*0 

FSU 

270.000 

248.000 

228.000 

208.000 

199.900 

199.900 

194.900 

194.000 

193.900 

170 

FSU 

2S0.000 

298.000 

238.000 

218.000 

208.900 

209.900 

204.900 

204.000 

2*3.900 

ISO 

FSU 

290.000 

2*8.000 

248.000 

229.000 

218 . 900 

219.900 

214.900 

214.000 

213.900 

190 

FSU 

300.000 

278.000 

299.000 

239.000 

22S.900 

229.900 

224.900 

224.000 

223.9*0 

200 

FSU 

310.000 

288.000 

2*9.000 

249.000 

239.900 

239.900 

234.900 

234.000 

233.900 

210 

FSU 

320.000 

298.000 

279.000 

299.000 

248.900 

249.900 

244.900 

244.000 

243.900 

220 

FSU 

330.000 

308.000 

289.000 

2*9.000 

298.900 

299.900 

294.900 

294.000 

293.900 

230 

FSU 

340.000 

318.000 

298.000 

279.000 

2*9.900 

2*9.900 

2*4.900 

2*4.00* 

2*3.900 

240 

FSU 

390.000 

328.000 

308.000 

289.000 

279.900 

279.900 

274.900 

274.000 

273.900 

2S0 

FSU 

3*0.000 

338.000 

319.000 

299.000 

289.900 

289.900 

284.900 

284.000 

283.900 

2*0 

FSU 

370.000 

348.000 

328.000 

308.000 

298.900 

299.900 

294.900 

294.000 

293.900 

279 

FSU 

3SO.OOO 

398.000 

338.000 

318.000 

308.900 

309.900 

304.900 

304.000 

303.900 

200 

FSU 

390.000 

3*8.000 

348.000 

328.000 

318.900 

319.900 

314.900 

314.000 

313.90* 

290 

FSU 

400.000 

378.000 

398.000 

339.000 

329.900 

329.900 

324.900 

324.000 

323.900 

300 

FSU 

410.000 

388.000 

3*8.000 

348.000 

338.900 

339.900 

334.900 

334.000 

333.900 

<£-6 


TMIC  OF  HRXIHUH  PERMISSIBLE  TISSUE  TENSIONS 


<VVM.18-  NITROGEN  > 


OEFTN 

5  HIN 

1 . 00  SOR 

10  HIN 
1.00  SOR 

20  HIN 
1.00  SOR 

TISSUE  HRLF-TIHES 

40  HIN  80  HIN 

1 .00  SOR  1.00  SDR 

120  HIN 

1 . 00  SOR 

140  HIN 

1 . 00  SOR 

200  HIN 

1 . 00  SOR 

240  HIN 
1 . 00  SOR 

10 

FSW 

120.000 

98.000 

78.000 

54.000 

48.500 

45.500 

44.500 

44.000 

43.500 

20 

FSW 

130.000 

108.000 

88.000 

44.000 

58.500 

55.500 

54.500 

54.000 

53.500 

30 

FSU 

140.000 

118.000 

98.000 

74.000 

48.500 

45.500 

44.500 

44.000 

43.500 

40 

FSW 

150.000 

128.000 

108.000 

84.000 

78.500 

75.500 

74.500 

74.000 

73.500 

SO 

FSW 

100.000 

138.000 

118.000 

94.000 

88.500 

85.500 

84.500 

84.000 

83.500 

«0 

FSW 

170.000 

148.000 

128.000 

104.000 

98.500 

95.500 

94.500 

94.000 

93.500 

70 

FSW 

ISO. 000 

158.000 

138.000 

114.000 

1 08.500 

105.500 

104.500 

104.000 

103.500 

00 

FSW 

190.000 

148.000 

148.000 

124.000 

118.500 

115.500 

114.500 

114.000 

113.500 

90 

FSW 

200.000 

178.000 

158.000 

134.000 

128.500 

125.500 

124.500 

124.000 

123.500 

100 

FSW 

210.000 

188.000 

148.000 

144.000 

(38.500 

135.500 

134.500 

134.000 

133.500 

no 

FSW 

220.000 

198.000 

178.000 

154.000 

148.500 

145.500 

144.500 

144.000 

143.500 

120 

FSW 

230.000 

208.000 

188.000 

144.000 

158.500 

155.500 

154.500 

154.000 

153.500 

130 

FSW 

240.000 

218.000 

198.000 

174.000 

148.500 

145.500- 

144.500 

144.000 

143.500 

140 

FSW 

250.000 

228.000 

208.000 

184.000 

178.500 

175.500 

174.500 

174.000 

173.500 

ISO 

FSW 

200.000 

238.000 

218.000 

194.000 

188.500 

185.500 

184.500 

184.000 

183.500 

ISO 

FSW 

270.000 

248.000 

228.000 

204.008 

198.500 

195.500 

194.500 

194.000 

193.500 

170 

FSW 

280.000 

258.000 

238. 000 

214.000 

208.500 

205.500 

204.500 

204.000 

203.500 

180 

FSW 

290.000 

248.000 

248.000 

224.000 

218.500 

215.500 

214.500 

214.000 

213.500 

190 

FSW 

300.000 

278.000 

258.000 

234.000 

228.500 

225.500 

224.500 

224.000 

223.500 

200 

FSW 

310.000 

288.000 

248.000 

244.000 

238.500 

235.500 

234.500 

234.000 

233.500 

210 

FSW 

320.000 

298.080 

278.000 

254.000 

248.500 

245.500 

244.500 

244.000 

243.500 

220 

FSW 

330.000 

308.000 

288.000 

244.000 

258.500 

255.500 

254.500 

254.000 

253.500 

230 

FSW 

340.000 

318.080 

298.000 

274 . 000 

248.500 

245.500 

244.500 

244.000 

243.500 

240 

FSW 

350.000 

328.000 

308.000 

284.000 

278.500 

275.500 

274.500 

274.000 

273.500 

250 

FSW 

340.000 

338.080 

318.000 

294.080 

288.500 

285.500 

284.500 

284.000 

283.500 

2S0 

FSW 

370.000 

348.000 

328.000 

304.000 

298.500 

295.500 

294.500 

294.000 

293.500 

270 

FSW 

380.000 

358.000 

338.000 

314.000 

308.500 

305.500 

304.500 

304.000 

303.500 

200 

FSW 

390.000 

348.000 

348.000 

324 . 000 

318.500 

315.500 

314.500 

314.000 

313.500 

290 

FSW 

400.000 

378.000 

358.000 

334.000 

328.500 

325.500 

324.500 

324.000 

323.500 

300 

FSW 

410.000 

388.000 

348.000 

344.000 

338.500 

335.500 

334.500 

334.000 

333.500 

ANNEX  D 

SUBROUTINE  FMPER 
LISTING 


tFHPER  T-00004  IS  ON  CR00012  USING  00021  BLKS  R-0000 


8001 

FTN4 

0002 

C 

0003 

C 

N«B€ :  FMPER 

0004 

C 

0003 

C 

Date  >  27 

July  1978  Operating  System  HP  21HX  RTE  IV 

0006 

C 

Subroutine  Size:  933  words 

0007 

C 

17  AMO.  1982  N*li*o*  buffer  tOdtd 

0008 

c 

0008 

c 

Author  t 

Hark  Nob ley 

0010 

c 

Haw  Experimental  Diving  Unit 

001 1 

c 

Panama  City.  Florida 

0012 

c 

0013 

c 

Source 

0014 

c 

File: 

tFHPER 

0019 

c 

0016 

c 

Celling 

0017 

c 

Sequence t 

< IERR. NAN, LU, HESS > 

0018 

c 

IERR  —  FHP  error  code  from  calling  program. 

0019 

c 

NAN  -  Name  of  calling  program. 

0020 

c 

LU  -  Logical  unit  no.  of  terminal. 

0021 

c 

HESS  -  Hessage  buffer  < any  length) 

0022 

c 

0023 

c 

Arguments': 

0024 

c 

0029 

c 

IASC1 

ASCII  ERROR  CODE 

0026 

c 

I  BUFF 

HEH0RY  BUFFER  FOR  DISK  FILE 

0027 

c 

IDCB 

DISK  FILE  DATA  CONTROL  BLOCK 

0028 

c 

1EC 

BINARY  VALUE  OF  ERROR  CODE 

0029 

c 

IER 

ERROR  COOE  FOR  FHPER  INPUT  FILE 

0030 

c 

IERR 

ERROR  COOE  PROM  CALLING  PROGRAM 

0031 

c 

IFCRR 

POSITIVE  VALUE  OF  BINARY  ERREO  CODE 

0032 

c 

ISIGH 

SIGN  VALUE  OF  BINARY  NUMBER 

0033 

c 

LDASH 

BINARY  VALUE  FOR  DASH  AMO  A  NULL 

0034 

c 

LEFT 

LEFT  HALF  OF  AN  ASCII  WORD 

0039 

c 

LCN 

ACTUAL  NUHER  OF  WORDS  READ 

0036 

c 

LU 

DEVICE  NUMBER  OF  TERMINAL 

0037 

c 

HESS 

OPTIONAL  MESSAGE  BUFFER 

0038 

c 

NAN 

NAN  OF  CALLING  PROGRAM  OR  SUBROUTINE 

0039 

c 

NAME 

NAME  OF  FILE  CONTAINING  ERROR  DESCRIPTIONS 

0040 

c 

ACER  A 

TERMINAL  DISPLAY  BUFFER 

0041 

c 

RIGHT 

RIGHT  HALF  OF  ASCII  WORD 

0042 

c 

SURER 

DISPLAY  LABEL  BUFFER 

0043 

c 

0044 

c 

0049 

c 

RTE  IV-B 

Operating  System  Subroutines  requiredi 

0046 

c 

0047 

c 

CLOSE 

CLOSES  DISK  FILE 

0048 

c 

CNUHO 

CONVERTS  BINARY  NUMBER  TO  ASCII 

0049 

c 

OFEN 

OPENS  DISK  FILE 

0090 

c 

READF 

REAOS  DATA  FORM  OISK  FILE  INTO  MEMORY  BUFFER 

0091 

c 

REIO 

WRITES  DIRECTLY  TO  TERMINAL  BYPASSING  FORMATTER 

0032 

c 

0033 

c 

0034 

c 

Method) 

This  subroutine  compares  the  ceiling  program's  FHP  error 

0033 

c 

code  with  the  error  codes  listed  in  file  FNPLST  and  will 

0036 

c 

display  the  associated  error  description  on  the  terminal 

0037 

c 

log  device. 

References)  File  WMT 


SUBROUTINE  Wn<  IERR, NAN, LU. HESS) 

•.Returns  FRF  error  on  FRF  Cell 

INTEGER  XBUF<40),10CB<  144 ).NAH< 3 >, NAHE< 3 ), SUBCR<  1 4 ),PCERR<  IS), 

•  IMCK3),  RIGHT,  HESSC  1  ) 

DSTN  NANE/2HPH , 2HPL . 2HST/ ,  LDASH/02S4Q08/, 

•PCERR/2H IE , 2NRR , 2H  -,3-2H  ,2H  I,2HN  , 2HFR , 2H0G , 2HRA , 2HH  .3-2M  /, 

•SU0ER/2HSU , 2HER , 2H0U , 2HT X , 2HNE , 2H  F , 2HNF , 2HER . 2H  ,2HIE,2MR  ,2M-  , 

•  2H  ,2N  / 


C  RETURN  IF  NO  ERROR  <>0> 

C 

IF< IERR  .GS.  0)CO  TO  90 
IF<  LU  .  LT .  IN.U  •  t 
C 

C  OPEN  FHF  ERROR  DESCRIPTION  FILE 

C 

CALL  OPEH< IDCB, IER.NANE, 3.0,12) 

1F< IER  .LT.  0)60  TO  30 
C 

C  GET  ERROR  DESCRIPTION  RECORO 

C 

10  CALL  READF< IDCB. IER, IBUF,40.LEH> 

IF< IER  .LT.  0)60  TO  30 
C 

C  CONVERT  ASCII  NUHBERS  TO  BINARY  U/0  USING  FORHATTER 
C  RIGHT  HALF 
C 

IEC  •  I AND<  IBUF<  2  ),  00377B  >  -  SOB 
C 

C  LEFT  HALF 

C 

ISIGN  -  IBUF< 2 )  /  2SS  -  SOB 

IF< I SIGH  .LT.  0)60  TO  20 

IEC  •  IS16N  •  10  ♦  IEC 

C 

C  RIGHT  HALF 

C 

ISIGN-  1AN0< IBUF< I >, 00377S)  -  SOB 

IF< ISIGN  .LT.  0)60  TO  20 

IEC  -  ISIGN  «100  •  IEC 

C 

C  ERROR  CODE  IS  REALLY  NEGATIVE 
C 

20  ISIGN  •  -IEC 

C 

C  LOOK  AT  NEXT  RECORD  IP  FNP  ERROR  OOCS  NOT  HATCH  ERROR  NO. 

C 

!P<  IERR  .HE.  ISIGN XIO  TO  10 
C 

C  CONVERT  FNP  ERROR  HUNGER  TO  ASCII 
C 

30  IPERR  -  -IERR 

CALL  CHUHO< IPERR, I ASCI  ) 

C 

C  INSERT  MINUS  SIGN 
C 


1ASCK2)  -  10R<  LDASH.  IANO<  0003773 ,  I ASCII 2  )  >  ) 


on* 

OHO 

0120 

0121 

0122 

0123 

0124 

0123 

012* 

0127 

0123 

0120 

0130 

0131 

0132 

0133 

0134 

0133 

0130 

0137 

0133 

0130 

0140 

Ot41 

0142 

0143 

0144 

0143 

0143 

0147 

0143 

0140 

0130 

0131 

0132 

0133 

0134 

0133 

0133 

0137 

0133 

0130 

0130 

0131 

0132 

0133 

0134 

0133 

0133 

0137 


C 

C  LOAD  DISPLAY  300712  WITH  ERROR  NUMBER  t  PROGRAM  NAME 

C 

00  40  1-1.3 

PCERRII*  3)  -  IA9CI<  I  > 

40  A3CRB< 1*12  )  -  NAM  <I> 

C 

C  DISPLAY  PILE  ERROR  MO.  3  PROGRAM  NAME 

C 

CALL  RCI0<2.LU.FCERR  .13) 

C 

C  DETERMINE  LENCTM  OP  MESSAGE  SUPPER 

C 

I  -  1 

J  •  0 

SO  LEPT  -  MESS< I >  /  233 

IP< LEPT  .LT.  32  .OR.  LEPT  .GT.  I23>G0  TO  30 
J  ■  J  ♦  1 

RIGHT  •  IAMD< 3773, HESS< I ) > 

1P< RIGHT  .LT.  32  .OR.  RIGHT  .GT.  I23)G0  TO  30 
J  -  J  ♦  1 
I  «  I  ♦  I 
CO  TO  30 

30  XF<J  .GT.  S»CALL  REI0<2.LU.NES8.-J> 

C 

C  BRANCH  IP  ERROR  ON  DESCRIPTION  PILE  ACCESS  ALSO 

C 

IP<  IER  .LT.  0 MSO  TO  70 
C 

C  DISPLAY  ERROR  DESCRIPTION 
C 

CALL  RCI0<2.LU. IBUP  <4).LEN-3> 

CO  TO  33 

C 

C  DISPLAY  ERROR  IN  ACCESR  TO  ERROR  DESCRIPTION  FILE 

C 

70  IPERR  -  -IER 

CALL  CNUN1X  IPERR. IASCI ) 

I  ASCII  2)  -  I OR (LDASH,  IAND<  0003773.  IASCK2)  >> 
SUBER<  13)  -  IASCK2 > 

SU3ER<  14)  -  IASCK3) 

CALL  RE10<2.LU, SURER. 14 > 

C 

C  CLOSE  ERROR  DESCRIPTION  PILE 

C 

SO  CALL  CLOSE< IOCS. IER) 

SO  RETURN 

END 
ENOS 


D-3 


mzmmmm 


END 

DATE 

FILMED 

3-83 

DTIC 


